- High Absolute Loader Listing 


—Xwolegh . 860P-UT-017 


FLAGS 


LOC.CTR. 


001480 


~ 000030 


* 90000C 
000038 
000040 
000048 


000058 
_ 000068 


000070 
000078 


001480 


0013E0 - 


0014680 
001460 
001480 


001482 


001486 
001488 


00148¢ 
001490 


OBJECT 


05 FO 


58 FO 


1B EE 
50 EO 


58 10 
95 40 


001482 


F O0C2 
. 001480 


0 078 
F OEC 
1 010 


eR H EHH R ET ERR RHEE HER HEE RHE HERRERA H RAH HEHE HH HHH 


V2L0 soURC 


IcTiL 25 
IBM SYSTEH/360 BASIC PROGRAMMING SUPPORT 
BASIC UTILITIES 


. HIGH (8Ki 
ABSOLUTE LOADER 
PROGRAM NUMBER 360P~-UT-017 
VERSION 2, LEVEL1 


- THE INTERNAL NAME ASSIGNED TO THIS PROGRAM 


TS IBAASS. 


THE ABSOLUTE LOADER LOADS PROGRAM SEGMENTS 
INTO STORAGE AY THE ADDRESSES ASSIGNED TO 


“THEM BY THE ASSEMBLER. AND TRANSFERS CONTROL 


TO THE PROGRAM FOR EXCUTION, AND ALLOWS THE 
USER TO MAKE CORRECTIONS OR ADDITIONS TO THE 
ASSEMBLED PROGRAM AT LOAD TIME. 


THE OPERATION OF THIS PROGRAM, EXCEPT AS 
NOTED BELOW, DEPENDS UPON AN INTERNAL REPRE- 
SENTATION OF THE EXTERNAL CHARACTER SET 
WHICH IS EQUIVALENT TO THE ONE USEN AT AS- 
SEMBLY TIME. THE COOING HAS BEEN ARRANGED SO 


THAT REDEFINITION OF CHARACTER CONSTANTS, AY 


REASSEMBLYs WILL RESULT IN A CORRECT MOOULF 
FOR THE NEW DEFINITIONS. 


THOSE STATEMENTS MARKED WITH AN * IN COLUMN 
71 BELOW DO NOT DEPEND UPON A PARTICULAR IN- 
TERNAL REPRESENTATION OF THE FXTFRNAL CHAR- 
ACTER SET EXCEPT THAT THE DECIMAL NUMBERS 
MUST BE CODED SO THAT THE LOW ORDER FOUR 
BITS, WHEN CONSINERED AS A BINARY INTEGER, 
TOENTIFY THE VALUE OF THAT OIGIT. 


THE CONSTANT MARKED WITH A DOUBLE * IN 
COLUMNS 70 AND 71 REPRESENT THE OITFFERENCE 
BETWEEN THE HEXIDECIMAL VALUE NF THE NUMBER 
A AND THE INTERNAL BINARY VALUE OF THE CHAR- 
ACTER A»y AND MUST BE ALTERED SHOULD THE IN~ 
TERNAL REPRESENTATIONS OF THE LETTERS A 
THROUGH F CHANGE... . 


THE CONSTANTS WITH *** IN COL. 69-71 REQUIRE 
THE X*02* EQUAL A T-2-9 PUNCH AND MUST AE 
MODIFIED IF THE PROPERTIES OF THE CHARACTER 
SET ARE CHANGED. an 


HIGH FOR 8K | 


ABSLDR START 5248 
ENTRY ALPHA 
ENTRY BETA 
ENTRY IOTA 
ENTRY OMEGA 
* LOADER ENTRY POINT 
*ENTRY LOAD 
*ENTRY RESUME : 
* HEX TO BINARY CONVERSION ENTRY 
*ENTRY HEXB . 
SENTRY SINTRY 
*ENTRY SNTRY2 
QRTPW EQU 48 TAPE DEVICE ADOREFS 
QwMSW EQU. 12 MESSAGE DEVICE A0DR 
1ooP EQU 56 
CSW EQU 64 
CAW EQU 72 
* EXTERNAL NEW PSW 
EXNPSW EQU 88 
* PROGRAM NEW PSW 
NPROG EQU- 104 
MKNEW EQU 112 
IONP E€QU- 120 
ALPHA EQU- #* 
* 
* USED FOR A HI ASSEMBLY 
IOTA -EQU  *-160 FOR HIGH ASSEMBLY 
& 
*BETA EFQU #*- 


* 
* 
**X 


* 


* 
* 
* 
* 
*eX 
* 

BET 
s 


ITER 
* 


*LO 


ABOVE THIS CARD FOR HI~LOR ASSEMALTES 
ADD THE INITIALIZATION ROUTIN 


XKMMXKX KK KK AX KXKRKKAKKK KK KAKA KMMKK KK KAK KKK KX KX KX 
INITIAL ENTRY ROUTINE (TER) 
XX XXX AKXK KAN K A KKK AHK AK AHH KKK HHH IK KK HK KKM 
A EQU® 

EQU * 

BALA 15,0 

USING *,15 
D BASE ADDR 

L 15,8REGL 

USING ALPHA,1L5 

SR 14914 


$T 14, I10NP 


*LOAD BUFFER ADDRESS 


L 1, TQUADR 


*CMP UNIT FIELO FOR BLANKS 


cul 1601),C° ° 


*BRe IPL CAME FROM SYSIN 


ALDROOOO 
ALNROOOI 
ALDROOO2 
ALDR0003 
ALDROONS 
ALDROOOS 
ALDROCOS 
ALDROOOT 
ALDROONA 
ALDROONO 
ALDROOIN 
ALDROOLI 
ALDROOL2 
ALNROCL3 
ALDROOLS 
ALDROOLS 
ALDROCL6 
ALDROOLT 
ALDROOLB 
ALDRON1E 
ALNRONZN 
ALDROO?1 
ALDR0022 
ALDROO23 
ALDRON24 
ALOROO25 
ALORNN26 
ALDRON27 
ALNRON2B 
ALDROO29 
ALORON30 
ALNROOIL 
ALORNO32 
ALNRON33 
ALOR0934 
ALDQ0035 
ALNRON36 
ALNROO37 
ALDROO3R 
ALNRND39 
ALDRONGN 
ALNRN041 
ALDRONG2 
ALDRON4S 
ALNRONGS 
ALNR0045 
ALIROCLG 
ALORONGT 
ALD20048 
ALNRON4O . 


ALDRONS1 
ALMNROC5S2Z 
ALARONSS . 
ALDRON54 
ALDRONSE 
ALYRANES 


BLARNOST 


ALNRANSA 
ALNRN059 
ALNRNNGO 
ALNRONS1 
ALNRONG?. 
ALORONG3 
ALNRONGS 
ALORONKS 
ALDRONGE 
ALDRO0K7 
ALDRONGA 
ALNRNNKB9 
ALNRNOTO 
ALDROCT] 
ALORNCT? 
ALORNNT3 
ALORONTS 
ALDROOTS 
ALNROANTA 
ALORONTT 


-ALNROO7B 
ALDRONTS 


ALNRON80 
ALDROOAL 
ALNROOR? 
ALOR ONN84 
ALDRONRS 
ALNROORS 
ALDRONBS 
ALORNORT 
ALNRNOAA 
ALNROOSS 
ALAR ONSO 
ALMROOFD! 
ALDRONGS? 
ALDROOGS 
ALBRANGSA 
ALDR 0096 
ALNROONG 
AL 920097 
ALDRON98 
ALNRONS9 
ALDRO1NN 
ALDRNIOL 
ALOROLO? 
ALDRO1O3 
ALDRN1904 
ALOROILOS5 


001494 
001498 
00149C 
0014A0 
00144 
001446 
001448 


0014AC 
001480 
001484 
001488 
00148 
0014C0 
0014C¢4 
0014C6 
OOL4CA 
OOL4CE 


0014D2 


001406 


00140C 
OOLSE2 
OO14ES 
0014E8 
OO1L4EC 
OO14FO 
OOL4FS 
OO1L4F8 
OOL4SFC 
001500 
001504 
001508 
00150C 
001510 
QOL514 
001518 
OOLSIC 
001520 
001524 


QOL52A 
. OO1S2E 
- 001532 
001536 
OO153A 
OO153E 
-001542 


001544. 


001548 
001550 


001550 
001551 
001554 
001558 

.00155C 

~ 001560 
- 001566 
-00156C 


47 


F 262 


F 052 
F STE 


F OE7 


OOOOOF | 


80 F 028 

41 40 0 004 
41 51 0 O10 
@l 10 F OFO 
05 01 

18 80 

40 80 F 2F0 
58 DO F OEC. 
95 40D 014 
&7 BO F 056 
41 40 0 004 
&1 50 0 O14 
41 10 F OFO 
05 Ol 

$8 10 F 2EC 
40 01 0 012 
47 FO F 068 
47 FO F 056 
D2 O1 F 054% 
D2 03 F 258 
D2 03 F 536 
41.70 F ODO 
50 70 0 048 
50 80 F ODC 
@1 70. F 090 
50 70 0 O7C 
90 00 8 O00 
4? 70 F OTC 
80 00 F OE 
9C 00 8 000 
a2 00 F 008 
49 80 0 O3A 
47 80 F OAC 
82 00 0 038 
91 04 0 044 
47 AO F ORC 
D5 04 F OE1 
47 80 F OBE 
40 80 F 2FO 
41 00 0 030 
5A 00 F 2EC 
50 00 F 2EC 
58 FO'F OCB 
07 FF 
000014A0 
00001508 

04 

001560 
00000008 
—FF060000 
00000000 
FEFEERFFEFFF 
FFFEFEREFREF 
000013E0 


*CONSTRUCT INST 


DETERMINE [/0 MESSAGE UNIT ACDRESS HERF X 


LOD 1/0 TBL ADNRFESS 
ST NEVEICF ANDR JN TAL 


BC 8,OI1FF 
*CONVERT 
LA 494 
* DEVICE ADDRESS 
LA $1601) 
* TO BINARY 
LA 1,HEXB 
*GO TO HEXB 
BALR Ol 
*SAVE DEVICE ADDR IN REG~-8 
LR 8,0 
*CHANGE LOADER CONSTANT 
OUFF STH 8. TPAOR 
ee 
*LOD ADOR OF INTA 
L 13, TQOUADR 
- CMP FOR [70 UNIT ADOR 
CLI 20(13),C* 
=BR TF NO UNIT AVAIL 
BC R CINST1L+4 
sCONVERT 
LA 454 
2 HEX TO 
LA 5.20013) 
* BINARY 
LA 1,-HEXB 
*BR TO HEXB 
. BALR OL 
*ST ANNR IN [/0 TBL 
L Le INPUT 
STH 0 ,QWMSWeOEL) 
BC 15eCINST2 
*DUMMY INST ac 
CINST1L BC 154 #44 


MVC CINSTL+2¢2) ,CINST+2 
*MOVE BR INST 
MVC CINST-8(4) .CINSTI 
MVC SAGINW#4(4) ¢SINDW OITSARLE I[/P MSG 
CINST2 EQU * 
LA 7,CCW2 
ST 7T,CAW 
ST 8 WAITS +4 
LA 7, {RUPP 
ST 7, TONP +4 
TIO 0(8) 
aC Ty #4 
SSM UT) 
S10 0(8) 
LPSW WAITS 
IRUPP CH A, fO0P +? 
BC AR,e+A 
LPSW = INOP ; 
y™ CSW+4,X*04! 
aC Ry TRUPP~4 
CLC} =—UTL FL (5), UT2Z]4¢) 
BC A,ROR 
STH 8, TPANR 
LA NeQRTPW TAPE READ RNUTINE ; 
A O, INPUT INCREMENT FO TP ANNR 
ST O, INPUT No ‘ 
ROR L 15.8RFS2 
BCR 15,15 
~ $BASE ADOR NF LOADER 
' BREG} oc AUALPHA) 
“INITIAL LOADING ENTRY 
BREG2 OC A{LOADL) 
0S . 90 
*SENSE IPERATION CNOF 
COwW2 oc X*04¢ 
oc ALZCUTL). 
oC XL4*B! 
WAITS OC x*FFO600005 
. bc XL4' OS : 
util oC X*FFFEFFFFFFFE ® 
ut2 oc X*FRFFFEFEFFEFF S 
IMUADR DC ACINTA) — 
QROP 15 
*TER EQu & 


® BELOW THIS CARD FOR HI-LODR ASSFMALIES 
* ADD THE INITIALIZATIGN RCUTIN 


x 


ALNROING 
ALNROLN7? 
ALNROINR 
ALAROING 
ALD®8N110 
ALORO11 I 
ALDRO112 
ALDRO112 
ALORNL14 
ALOROILIS 
ALOROLV16 
ALNRN117 
ALDROLILA 
ALDROLLO 
ALNROT29 
ALNRO121 
ALYRNL22 
ALDQN123 
ALNRON1L24 
ALDRO125 
ALDORN126 
ALOQON127 
ALORON128 
ALIORN129 
ALNANT3N 
ALOR OLVSL. 
4L020132 
ALORO133 
ALDAN1L34 
ALODRN135 
ALOYRALTIA 
ALORN1 37 
ALNRO1 38 
AL™RNA139 
ALDRN140 
ALNRO141 
ALNROL4G9 
ALNR0143 
ALNRO144 
ALORONI45 
ALDRO146 
ALOROVS47 
AIARNYGR 
ALOQHT4a 
ALNANTEA 
ALORATSI 
ALNANTS> 
AL 920153 
AL VRAALS4 
ALNANISS 
AL DAT 55 
ALNRA)57 
ALNRNPSHR 
ALDRAA15S9 
ALDAN1 60 | 
ALIROVATL 


ALIINLH? 
AL VAN1TAA 
ALYROLASL 
ALDRC1L6S © 
ALNRA1LES 
AL DAC 1H? 
ALNRNTGR 
ALIINLAS 
ALIQNTTN 
ALNRQNIT] 
ALARN}T? 
ALN@017? 
AL DRI 7% 
ALDRNI7S 
ALORA TA 
AL VAN TT 
ALNRNITR 
ALNRALT9 
ALODROLTAO 
ALINAKAPAL . 
ALIRALa2 
AL NROPAA 
ALOROPRS 
ALDINTAS 
ALNQO] SC 
ALIANT A7 


001570 


001570 
001574 
001576 
* 001578 


oo1L5T7C 


001580 
001584 
OOL588 


OOLSS8A 
‘OOLS8E 
001592 
001596 


001598 


00159¢ 
001540 
OO1LSAS 
OOLSAG 
OOLSAA 
OO15AC 
- 001580 

001582 
001586 
001584 
OO158E 


0015C2 _ 


OO15C6 
goLsca 


001500 


001500 


-001505 


001508. 


001508 


-. QOLSDA 
OO1L5EO 


001570 

50 00 1 058 
1B 33 

18 03 

41 20 1 04E 
95 FO 5 000 
47 40 1 036 
95 F9 5 000 
O7 32 

94 OF 5 000 
43 30 5 000 
‘89 00 0 004 
1A 03 

41 55 0 001 
46 40 1 00C 
58 20 1 058 
ov F2° 
95 C1 5 000 
O7 42 

95 C6 5 000 
07 32 

43 30 5 000 
48 30 1 056 
47 FO 1 022. 
50 FO 0 OSC 
82 00 1 060 
0087 
0106000000 
0302C1 

000001 

05 FO. 


OOLSDA . 


~ D2 O7.0 068 F i6E 


96 O02 0 O71 


Tet eee teense t 


PSW6 oc 


“& SETUP PROGRAM NEW PSW 
~# MACH CK AND WAIT 


® XXXXXXXXXXXXKXAXXKXXXXXXXXXXXAXXXXAKAXXXXXX 
* 

oa _ HEX-BIN CONVERSION ROUTINE 

* 

XXX AKAXKAKKXAAK AK KKK XXXAXXKXK KKK 


PLACE THE NUM OF CHAR IN REG~4 
ADOR OF HIGH ORDER IN REG-5 
“-LINKAGE-- L LyHEXADD 

BALR O,yl 
RETURN ADDR IN REG-O 
ANSWER RETURNED IN REG-O 


XXKXKKX KK XXX XKXXXAKXK KKK AK XXX KKK XX AXA KN 
EXB 
~ USING HEXB,1l 
' §T O,RETT 


SR 343 
LR 0,3 
LA 2,ERR2 
* TEST FOR ZERO 
Ll _ cli 0(5),C*o? 
* BR IF NOT O THRU 9 
~ Bc 4,13 
CLI 0(5),C*9! 
BCR 342 . 


“& CLEAR HIGH ORDER BITS OF CHAR 


NI O(5)>—X*OF?* 
- IC 340(0,5) 
L2 SLL 


04 
AR 0,3 
LA 54105) 
BCT 4eL1 
L 2,RETT 
‘ BCR 1542 
L3 CLI O(5),CtA® hes . 
BCR 4,2 BR FF STORAGE LOW 
CLI O15) ,CtF® as te 
BCR 352 BR IF GREATER 


~ 10 | 39010-5) 
SH | 3yCONS 


- BC 15,L2 

ERR2 ST 15,9 EXNPSWt4 

* ILLEGAL HEX CHAR HALT 
LPSW PSW6 

CONS DC X*0087' 

RETT DS 1F 
oS 00 

* INVALID HEX CHAR WATT 

X¥*0106009009* 


DC C*'LKA® 
* RETURN ADDR SAVE AREA 
prop. 1 


XX MKAK KAKA KK KK KX AA KX KAKXAK KKK MKAKK KKK KK 
INITIALIZATION ROUTINE = XXXXX 
KXKKK KKK KK KX KA KKK KA KKH KKH KI IK HH K 
OADL FOU # 
BALR 15,9 
USING #915 


MVC = NPROG(.8),PNPSW 
Of  MKNEW#1,x*02¢ 


EQU * ee 


+H + 


Ed 


ALDRO189 
ALORO19N 
ALDROLG1 
ALDRON192 


_ ALDROLIS 


ALNRO194 
ALDRO195 
ALDROLIG 
ALORO197 
ALDRO19A 
ALNROLIO 
AtLnRoa20n 
ALDRO201 
ALORN202 
ALORQN2043 
ALDRO204 
ALARO205 


-ALDRO206 


ALDRO2Z07 
ALDRO2NB 
ALNRO209 


. ALNRN210 


ALORO?ALI 
ALORO212 
ALNRO213 
ALNRO?714 


- ALDNRO2LS 


ALDNRO216 
ALD20217 
ALNRO2Z18 
ALDRO2Z19 
ALDRO220 
ALORN221 
ALDRN222 
ALRN223 
ALIRO224 
ALNRN225 
ALORN224 
ALDRO?27 
ALD29278 
ALORN229 
ALORN?AAN 
ALDRN231 
ALNRO2 32. 
ALORN243 
ALIIND34 
ALARNP35 


* ALDRN736 


ALDRO?37 | 
ALIR0233 
ALDRI?39 
ALDROA240 
ALDRN24) 


ALNRN242 
ALNPN244- 
ALORAPSS 
ALNRO?46 
ALNAN24T 


 ALORO748 


ALN@O749 
ALODRO75O 
ALDRN251 
ALNARO257 
ALNDRA2QEY 
ALNRN?54 


 OOLS5SES 
OO1L5E% 


OO15E6 
OOLSEA 
OOLSEE 


OO1L5F2 


OO15F6 
OOLSFA 


OOLSFE 
001602 
001604 
001608 


00160A 


00160E 
001612 


001616 
(OOL61A 
OO161E 
001622 
001626 
001624 
00162E 


001630 


00163% 


001638 
00163C 


001640 


001644 
001648 


001644 
00164C 
001650 
001654 
001658 


00165C 


OO1L65E 


~ 001660 


001664 


001666 
OOL66A 
G0166C 
OO1L66E 


001672 
001678 


05 


92 
92 
58 
58 
at 
58 
41 
05 
92 
16 
41 
58 
59 
47 
59 
47 
59 


47 


07 


48 
42 


58 
41 


.59 


4? 


“18 


LA 


92 


'§9 


47 
4l 


19 
07 
59 
oO? 
50 


07 
18 


42 


D2 
o7 


FO 


cs 
C4 
10 
ll 


20 


30 


40 
01 
Cl 
66 
DO 
90 
AO 
AO 
80 
AO 
80 
AO 
80 


FF 


B89 
60 


co 
10 


co 
AO 


7 
78 


D6 
70 
20 
80 
cs 
41 
60 


71 


co 


Fl 
680 
BO 
00 


FF 


ano 7 27 TH TR OTTN 


7 


nn nn Tn 


OO15E6 


178 
179 
186 
000 


112 
LBA 


-OEC 


179 
001 
112 
112 
196 
O4A 
194 
094% 
196 


occ 


OOA 
1ié 


116 
086 


182 
OTA 


178 


L6E 
OEC 
O80 


18E 
18E 


oap 
000 9 010 


« 
& 
6 
oe 
a 
x 
C 


% XXXXXXXAXXXXAXXXKXXXX XKXXKXXXXAKKKAKXAX 
x 
# BASIC UTILITIES ABSOLUTE LOADER 
& 
® XXXXXXXXXKXXKAXXXXXXKXKXKXXXXXKXXAXAXAKKXKXXX 
rs 
RESUME EQU * 
BALR) 15,0 
USING *,1L5 
* EOF OR EOT INDICATION 
MVI EMSG+1,.C*E! 
MVI EMSG+2,C'D* 
L Ly INPUT 
L 1,001) INPUT DEVICE TAL ADDR 
* INPUT BUFFER ADDR ff 
LA ~ 2ySPEC 
*-TP ADDR AND COUNT 
L 3,TPAOR 
* EOF OR EOT RETURN 
LA 4,ERROR 
BALR Ofpl 
VT EMSG+2,C*A? 
SR: 646 
LA 1351(0,0) 
LA 9eSPEC 
L 10,SPEC 


* CMP FOR TEXT CARD 


c 


10,TEST 


* BR TO TXT CRO ROUTINE 


BC 
Cc 


8,C907 


- * CMP FOR REPLACE CRO 


LO, TEST +4 


* REP CRD ROUTINE 


BC 


8,C908 


* CMP FOR END CRD 


C 


10, TEST+8. 


* END CRO ROUTINE BR 


BC 


8,C909 


% RETURN TO RD 


907 


BCR 


“15915 


KX KKK KAA K HHH KH HK KK KKH X KK HK HK HH 
TEXT, CARD ROUTINE 2 


XK KKK KK AK HHI KH HX KIKI IK IH HK 
NUM OF BYTES SPECIFIED 


* STORAGE ADDRESS 


CIL4 


LH L1,e10{9.0) 
STc 6e SPEC +S 
L 12,5SPEC +4 
LA 1,C919 

* CMP FOR ABNVE LOADER 
Cc 12,LEND 

* BR- AOOR ABOVE LOR 
BC 10,ENT 
LR “Tle 


* ADDR PLUS LENGTH 


AR 


‘Tell 


® LOADER OVERLAY ERRNR 


MVI 


EMSG+1,C*N* 


* CMP FOR BELOW LOADER 


C 
BC 
LA 


7,fRELOW 
2vERROR 
6,128 


 # SHOULD ADDR BE SAVED 


. cr 12-8 ; 
* BR- ADOR BELOW FIRST 128 8YTES 
BCR 4,_l : 
* HAS AN ADDR BEEN SAVED 
ENT C 6,BRAD . 
* BR=- ADDR SAVED 
BCR . Tel 
ST 12,BRAD 
ACR 1591 
C919 SR 11-13 
src LL ysMOVE +1 
* TEXT TO PP CORE 
MOVE MVC Nf1e12)-¢160F} 
* TO READ 
BCR 


15915 


Paes 


ALDRN256 
ALORN257 
ALDRO25A 
ALNR0259 
ALD®8 0260 
ALDRO261 
ALORO? 62 
ALDRN2463 | 


:ALN20264 


ALDRO765 


. ALDRN266 © 
. . ALDRO267 


ALDRO26R 
ALDRO269 
ALDRO270 
ALDRO2TL 
ALDRO272 
ALDRO?273 
ALN20274 
ALNRO275 
ALDRO?276 
ALDRO2T7 
ALDRO?778 
ALDR0279 
ALDRN28N 
ALDRN281 
ALNRN2A? 
ALDRO283 
ALDRO784 
ALD20285 
ALMRA2ZRG 
ALNRO2R7 
AL20288 
ALORO289 
ALORN299 
ALDRO2Z91 
ALDR0292 
ALNRO293 
ALDRO294 
ALORN295 


ALDRN207 
ALN2N 298 
ALDRN2GS9 
ALDRIANN 
ALNRN3N} 


- ALIRN3N2 


ALNa@OAR3 
AL IRANING 
AL nanans 
ALARONANG 
ALDROANT 
Atnagang 
AL Nenana 
ALNANALS 
ALORN311 
AL NANI]? 
ALNANAL3 


AL IROBTG 


ALNRA3L5 


_ ALORODIIA 


AL NINA 


~ALDROBITA 


ALORNALG 
AL NHANAPAN 
AL DRONA] 
AL NENI27 
ALNRA3Z223 | 
AIL NR2N394 
AL NANI 
ALAANARG 
ALDQV3)7 
ALAROAR: 
ALIA0329 

ALDRN3449 
ALNRN331 
ALNQ3A47 
ALNINAISA 
ALONRO334 
ALNRN3356 
ALNRN336 


® XXXXXKXXXXXXXKKXX KX KRXX KX XXX KXKXAKXKK KKK AX ALDRO338 

* ALNRO339 

x REPLACE CARD ROUTINE ALDRO340 

See 2 ALORO341 

eae XXX AKAN AAA AHN KKK AK KK AK HK AAA HAH X ALDRO342 

* CONVERT HEX ADDRESS ALDRO343 

QO1L67A 41 40 0 006. C908 LA 426(0;0) ALDRN344 
a * HIGH ORDER ADDR ALORN345 
OOlL67E 41 59 0 006 LA 5,6(9,0). ALDRN346 
'" 001682 58 10 F 10E L 1,HEXBB . ALDRO347 
001686 O5 OL BALR 0,1 ° z ‘ALDR0O348 
001686 18 CO LR. 12,0 . ALDRN349 
OOLI68A 41 80 O 002 LA 11¢2(0,0)_ Q -ALDRO350 
ei * FIRST CORRECTION -ADOR ALORO351 
Q00168E 41 59 Q O10.. LA. 516190) ALNRO352 
“s * CHECK ADOR : ‘ALDR0O353 
001692 45 10 F OSA c9l2 BAL 1,C9OLS , ae ALORON354 

; ; * CONVERSION CHARACTER SOUNT (CCC): ALDR0355 
001696 41 40 0 004 LA 424(0,0) AL)20356 
OOL69A 586 10 F LOE L 1-HEXBB ‘ALDRO357 
 OO169E 05 O21 / BALR Ol ALDRO358 
_ * CORR TO STG - ALNQN3589 
0016A0 40 00 C 000 ; STH 0,0(0,12) ALORO360 

; * CMP FOR COMMA -ALORO361 

0016A% 95 6B § 000 CLI . OF(5),Ct%,* - , ALORO362 
* BR TO RD ALNRN363 
OO16A8 OT TF BCR -Tel5 ALDORO 364 
OOI16AA LA 5D AR” 5213  ALOROQN365 

—  'Q016AC LA CB AR l2vl1l . ALDRN366 
a QOL6AE 47 FO F OAC BC 15,C91L2 © ALORN367 
® XKXMKXKAKK KKK KX AX KKK KK KX KKK AK KK AK KKK KK ALD20369 

2 ALDROATO 

a FND CARD ROUTINE ALNRNAT] 

* - ALD2O372 

® XKKXKK KK KKK KKK XK KK KKK KK KKK KKK XK KKK XK ALNI0373 
OOL6B2 58 19 0 004 c909 L 194(9,0) LOAN YN TEST FOR ANNR ALONRNIZTG 
001666 59 19 0 008 Cc 1,809,0) yess ALNR0N375 
ny oe * BR-ADOR EQU BLKS ALNQN376 
“OOL6BA 47 80 F 0E4 BC 8,C913 AL IRNATT 
QOL6BE 50 10.F, 15E. C910 ST 1,PSwW1 ALODAQNATR 
° * CLEAR SAVE AREA ALNQ0379 
Oo1L6C2 50 60 F LBE ST 6,BRAND ALORNARN 
4 a * RELEASE CTL TO PRONG ALDOQN3A1 
0016C6 82 00 F 15A “LOSW OPSW ALNRA3R2 

; # FIRST ADDR LOADED INTO ALNQN3AR4 

QO16CA 58 10 F 1BE C913 L 1,8RAD ALOAQN3AAKG 
GOL6CE 47 FO F ODS BC 15,0910 ALNQN4AS 
+ ® KXKKX KKK KKK AK KK KKK KX KK XK XKK XX XKAXAKAKK - ALNQN BG 

* ALNIO AAT 

% ERROR STOP ROUTINES ALNRA3B8 

2 ALDAN3RAa 

® XXX KXKKXKX KK KKKA KKK KK KKK KKK XK KKK KKM KKK ALNRN199 

& ALOROADIL 

. OOL6D2 ERROR EQU & ALNRO392 
. a ® SETUP EXTERNAL NEW PSW ALNRN393 
OO1L6D2 D2 07 O 058 F 6A MVC EXNPSW(8) ,RESTRT ALDRO396 
ra ® ADDRESS OF MESSAGE ALNROQA95 
001608 41 20 F 177 LA 2eEMSG XX ALNRN396 
“@ NUM OF BYTES TO PRT _ ALORO397 

o0o0160C 41 30 0 008 LA 328 XX ALMRAN398 
* ERROR RETURN ALDRQAI399 

OO16EG 41 40 F 108 - CINST LA 4,ERRORI kX ALDRQ4GON 

; - * 1052 ROUTINE ADDRESS ALNROANL 
OO16ES 58 10 F 192 AL L,yMOAODR LOD DEVICE TRL ADDR AL92N402 
OOI6ES 58 Li O 000 L 1,001) . LOO DEVICE ADDR. ALDRN403 

5 @ BR TO WRITE ALDRN4SNS 
' OOLGEC 05 Ol BALR Ol XX ALDRN405 
; * £00 WAIT PSW | ; ALORN4NA46 
 OO16EE 82 00 F L72 ERRCRE LPSH PSWMSG ALORN4OT 


O016F2. 
001L6F4 


001L6F8 


001740 
. 001744 


001748 
001740 
- 001750 
001754 

- 001758 
 00175D 

: + 001765 
‘001768 


00176C 


OOL770 
001774 
001778 


00177C 
00177D 
001780 
001761 
001784 
001785 


_ 001788 


‘0000 


00001570 


00040020 


0106000000 
D307C1 

01040000 
00001480 
0106000000 

0302C 140E6C1C9E3 
404040 

00001788 


00001788 
00000048 
00000000 
00001794 


02 ; 
E3E7E3 


o0000F 


001788 


* XXXXXAXXKXXXKXKXK AX XXX AAAKK XX XXX AX XKXAXXAXXNX 
« ; 

* CONSTANTS AREA 

* 

* XXXXX XXX AX XAKAXX XXX KKK XXX XXX AKAAXXXAXAKAX 


HEXBB OC A(HEXB) 

* INPUT BUFFER OF T2 BYTES 

SPEC DS 90 

* SV STATE, MCH CK ON, OFSABLED 
PSH = =DdC X*00040020" OBJECT 
PSW1 OS 1F 

* PROGRAM INTERRUPT PSH 


PROG PSW 


PNPSW DC  X*01060000008 

DC = CFL PA 
RESTRT OC X*01040000° 

BELOW DC AUALPHA) 

PSHMSG OC X*0106000000 * 
EMSG OC C*LKA WAIT * 
LENO DC . ALTHEEND) 
* CRD RD ROUTINE 
INPUT OC AC(SINTRY) 1/0 TBL ADDR 
* CARD IMAGE BYTE COUNT 
TPADR OC XL4°48! 
BRAD OC XL4*O! j bs oa 
MOADR OC A(SINTRY+QWMSW) MSG DEVICE ADOR 
* TXT, REP, END. 
TEST OC x*o2° 

DC C*TxT? 

DC x*02* 

DC O.s«C PREPS 

oc x*o2" 

oc C*END® 

. DROP 15 

% END OF LOADER 


THEEND EQU.. * 
= : ; . 
% 


* ‘ : : 
SASAD EQU] * 
s : pel 


et 


ALDRO0409 
ALDRO410 
ALDRO411 
ALNRN412 
ALDRO4S1L3 


ALDRO414 
ALDROGLS ° 
ALDRON416 
ALDROG1T 
ALDRO418 
ALDROG1LYI 


ALDR0420 


ALDRO421 


* ALONRN422 


eae 


Bae 


Sew 


DEFINE BASE ADDRESS 
FOR 1-0 ROUTINES 


ALDROS23 
ALNRO424 
ALDRNG25 
ALDORO426 


ALDRO427 
ALORN428 
ALDRN429 
ALDRO43N 
ALDR0431 
ALDRN432 
ALD2N433 
ALDRO434 
ALDRNG35 
ALDRO436 
ALDRO437 
ALDR0438 
AL020439 
ALNRN44N 
ALDR 0441 
ALDR0442 


ALNQN444 
ALNDRAN4GS © 
ALDRNG4E 
ALIRN4G4T 
ALNRN44A 
ALR90449 
ALNAN45N 
ALQRO451. 


~ ALNIWN4S2 


(001788 


OOL78C 


001788 


00178C 
001790 


001794 


001798 
00179C 


O017A0_ 


OO1LTA4S 
0017A8 


OOLTAC 
901780. 


001784 . 


001788 
00178C 
0017C0 


0017C4 
0017C8 


OOOOFFFF 


OOOOOFFF 


00000000 . 


OOOOFF FF 


OOOOOF FF 
00000000 


OOOOFFFF 


OOOOOFFF 


00000000 © 


OOOOFFFF 


OOOOOFFF 


‘00000000 


QOOOFFFF 


OOOOOFFF 
00000000 


Q0000000 


QO00FD00 


RARER AHR RHEE HERR Re ee 


+ 


" 


NOTE -- 
NOTE -~ 
NOTE -- 
% 
*. 
* 
x 
™ 
xt 
x 
SINTRY DS 
% : 
ay 
t 
ra 
re 
2 
® 
*x 
SUTAB EQU 
* 
& 
OC. 
SCRDR OC 
oc 
* ‘ 
oc 
ui 
STYPR OC 
: oc 
* 
Nc 
* ~ 
SPRTR OC 
oc 
e 
ele 
SSPNCH DC 
oC 
= 
* ‘i 
oc 
Py 
* 
* 
% 
& 
* 
x 
. oc 
7 
STAP OC 
Ps 
oc 
* 
& . 
*SDUMD OC 
oc 
OC . 


I-0 


CALL ENTRY GROUP 


PRIMARY CALL ENTRY TABLE 


FUNCTION 


NOTE -— FOR CALL TO ONE SELECTED PRIMARY 


OF THE INDICATED DEVICE. 


EACH CALL UNIT BLOCK -- 3 WORDS -- 


IN THIS TABLE CONTAINS A POINTER TO 
. THE ENTRY TO THE FUNCTION ACTION 


ROUTINE, 


AND AN EXCEPTIONAL CONDITION RETURN 


THE DEVICE UNIT ADDRESS, 


ADDRESS AS SUPPLIED OPTIONALLY BY 


THE USER 


FUNCTIONS OF THIS DEVICE WILL EXIST 


IN SREGL. ANY OTHER 


IN THE SECONDARY CALL ENTRY TABLE 
WHICH WILL REFER TO THE PRIMARY 
CALL TABLE TO OBTAIN THE DEVICE 
UNIT ADDRESS AND EXCEPTIONAL 
RETURN ADDRESS 


EACH ENTRY ADDRESS BELOW WHICH IS 


IS INCLUDED IN THE CURRENT ASSEMBLY 


REQUIRES 


THE PRESENCE OF ITS 


INDICATED ACTION ROUTINE 


ALL ASSOCIATED ENTRY + EXTRN CARDS 


SO THAT A SFPARATELY ASSEMBLEN USER 


“MAY BE OMITTED IF LINK I-0 ROUTINES 
ARE ASSEMBLED WITH USER PROGRAM 


PROGRAM MAY ADDRESS THE SINTRY 
TABLE THROUGH THE USE OF A SINGLE 


FXTRN-ENT 


RY PAIR -~ 


AND THE USE OF SINTRY~PLUS~INCRE- 


MENT NOTA 


TION == THE FORMAT OF THE 


SINTRY TABLE SHOULD REMAIN FIXED. 


ONLY THE 
TO THE LA 
INCLUDED, 


o7- UNIT A 


ANY ENTRY 
NO REFERE 
ROUTINE [ 


0D 


1-0 
PRIMAR 


SINTRY+4 


A(65535) 
A(4095) 
A{0) 
A(65535) 


A(4095) 
A(0) 


A(65535) 


4(4095) 
AO) - 


A(65535) 


4(4095) 
A(4095) 


AO) 


A(65535) 
At4095) 


AO) 


A(0) 


ACO). 


4161440} 


EXTENT OF THF TABLE DOWN 
ST ENTRY USED NEED BE 

BUT A OUMMY 12 SYTE SPACE 
DDRESS FFF -- MUST REPLACE 
BLOCK SPANNED BUY WITH 
NCE ANDO WHOSE ACTINN 

S NOT INCLUDED 


DEFINE FNTRY POINT 
TO TARLE AND 
ALIGN TQ DOUALE 
WORD BOUNDARY 


CALL ENTRY GROUP 
Y CALL ENTRY TABLE 
- CONTINUED - 


DEFINE 1ST DEVICE 
ADDRESS LOC 


READ CARD ANN WATT 
CARD RFANER ANOR 
ARFA FOR U E PFT 


WRITE MFSSAGE AND 
WAIT 

TYPRWRITER ADDRESS 

AREA FOR U E RFT 


PRINT A LINF ANN 
: WAIT 

PRINTER ANDRESS 

AREA FoR U F RET 


PUNCH 

PUNCH ADDRESS --~ 

‘PUNCH ADORESS <= 
AVERLOAN WITH 
CORRECT AONRESS 

AREA FOR U F RFT 
NTF =~ THIS 
UNIT ALOCK USED 
ONLY FCR PUNCH 
WHOSF UNIT ANDAR 
DIFFERS FROM THE 
CARN READER 


READ TAPE RECORD 
AND WAIT 

TAPE ADDR -- CVFRL 
FOR SINGLE TAPE 
ARFA FOR U E RFT 


~ DUMMY ENTRY 

DUMMY ENTRY 
DUMMY ENTRY -<- 

TERMINATOR 


ALORO0454 
ALDRO455 
ALDRO456 
ALORO457 
ALORN458 
ALDRO459 
ALORO&60 
ALDR0461 
ALDRO4&2 


ALDR0463 - 


ALDRO464 
ALNRON44A5 
ALDRO466 
ALDRO467 
ALNRN468 
ALDRO0469 
ALDRO470 
ALDRO471 
ALORO4T2 
ALDNRO473 


‘ALDRO474 


ALN80475 
ALORON4TE 
ALORN477 
ALNRO478 
ALDRO479 
ALDROGPO 
ALDROGAI1 
ALDRO482 
ALDRN4Q83 
ALDROGAS 
ALDRO4AS 
ALDRN4B6 
ALORN487 
ALDROGAR 
ALAROGRYO 
ALDRO49N 
ALDR049) 
ALORD492 
ALD20493 
ALDR 94946 
ALDRN495 
ALDRN496 
ALNR0497 
ALOR498 
ALDRO499 
ALARO50N 
ALNROSOL 
ALDRO507. 
ALORNSOA 


ALDROSNS 
ALDRN596 
ALDQNSO7 
ALNAAGOR 
ALDROSN9 
ALDVOS19 
ALDRNS]1 
ALN29512 
ALDR1513 
ALNQNASI4G 
ALDRNSI5 
ALNQOS1L6 


ALORNSITT 


ALDRO5]4 
ALNRIN519 
ALDROS2N 
ALARNS?] 


~ALNRNG22 


ALNRNS?Y 
ALDRNEIS4 
AL IANSI5 
ALN20526 
ALNRIAG2T 
ALNINE2S 
ALNRN52A 
ALNRO534 | 
ALDRNS41 
ALNRO532 
ALAQO534 
ALDRO534 
ALD20535 
ALORNS36 
ALDRNS537 
ALDR0538 
ALORNS39 
ALDRNS4N 
ALDR0541 
ALOROS42 
ALNR1543 
ALNANSS4 
ALDROS4S5 
ALORN544 
ALD2N547 
ALDROS54GA 
ALDRO549 
ALNROS550 


oo17cCc 


0017CC 
001700 


001704 
001708 
00170C 
OO1LTEO 


OOLTES 
OOLTES 


- OOLTEC 
“OO1LTFO 


OO1LTF4 
OOL7FS. 


“OOLTFC 
001800 
001804 


001808 


OOOOFFFF 


OOOOFFFF. 


OOOOFFFF 
OOOOFFFF 
OOOOFFFF 


_ OOOOF FFF 


OOOOFFFF 


OOOOFFFF 


OOOOFFFF © 


OOOOFF FF 
OOOOFFFF 


OOOOFFFF 


OOOOFFFF — 


QOOOFFFF 


OOOOFFFE 


OOOOFFFF 


*Feenek heen eea ee een reteeeenetr reenter ennenne eee tt 


ne 


enone 


* 


_ 2 @ & & 


NOTE -- 


NOTE -~ 


NOTE -- 


NOTE -- 


NTRY2 EQU 


oC 
- OC 


oC 
oc 
oc 
oc 


DC 
DC 
pc 
DC 
oc 


pc 
DC 


oc 
oc 
Oc 


I-O0 CALL EATRY GROUP 
SECONDARY CALL ENTRY TABLE 
FOR CALLS ASSOCIATED WITH A PRIMARY 


CALL RATHER THAN DIRECTLY LINKED 
WITH AN I-O0 DEVICE. UNIT REFERENCES 


“AUST BE MADZ THROUGH THE PRIMARY 


CALL 


EACH SNTRY ADORESS BELOW WHICH IS 
INCLUDED FY THE CURRENT ASSFMBLY 
REQUIRES FME PRESENCE OF ITS INDOI- 
CATED ACTTON ROUTINE 


ALL ASSOCIATED ENTRY + EXTRN CAROS 
MAY BE GHITTED IF LINK 1-0 ROUTINE 
TS ASSERBLED WITH USER PROGRAM 


SO THAT A SEPARATELY ASSEMBLED USER 
PROGRAR MAY ADDRESS THE SNTRY2 
TABLE THROUGH THE USF OF A SINGLE 
EXTRN-ENTRY PAIR -- AND THE USE OF 
SNTRY2—PLUS-INCREMENT NOTATION ~~ 
THE FORMAT OF THE SNTRY2 TABLE 
SHOULD REMAIN FIXED. ONLY THE EX- 
TENT OF THE TABLE OCOWN TO THE LAST 


ENTRY USFD NEED BE INCLUDED, BUT A 


DUMMY 4 BYTE SPACE -- UNIT ADDRESS 
FFF ~~ MUST REPLACE ANY ENTRY BLOCK 
SPANNFD BUT WITH NO REFERENCE AND 


WHOSE ACTION ROUTINE IS NOT PRESENT 
* DEFINE ENTRY POINT 
ENTRY PRIMARY FUNCTION 
CALL 
A(65535) SROCH  PUNCHIREADER) 


SENSE 6 BYTES 
ASSUMES SLURRG 
CONTAINS UNIT 


A( 65535) ANY | 


REFERENCE | 
A(65535) SHMSW TYPE 1 SPACF 
A(65535) SPRTW PRINT 1 SPACE 
A(65535) SPRTH PRINT SKIP =- 1 
A(65535) SROCW PUNCH(READER} 


AND WAIT 


1-0 CALL ENTRY GROUP 
SECONDARY CALL FNTRY TABLF 
~ CANTINUED - 

A(65535) - SPUC . PUNCH AND WAIT 

A(65535) SRTPW WRITE TAPF REC 
AND Walt 

Al65535) SRTPW REWIND TAPE ~ 

A(65535) SRTPW WRITE TM-WALT 

A(65535) SRYPW BKSP TAPE RFC 

AND WAIT 
A(65535) SRTPW BKSP TAPE FILE 
A(65535) SRTPW FWD SPACE TAPE 
REC AND Walt 

A(65535) SRTPW FWO SPACE FILF 
FILE: 

A(65535) SRTPW BKWO RFAD TAPE 

RFC - WAIT 

A(65535) ANY ITSSUF CONTROL 

. -~ ASSUMES 
SLUBRG HOLNS 
UNIT RFFER- 
FNCE 


ALDRO552 
ALDRO553 
ALDRO554 
ALORO555 
ALDR0556 
ALDRON557 
ALDRO55B 
ALOR9559 
ALDRO560 
ALORO5S61 
ALNRO562 
ALDRO563 
ALODRO564 
ALODRO565 
ALDROS566 
ALDRO567 
ALDRO568 
ALDR 0569 
ALDROS5STN 
ALNROS7L 
ALDRO572 
ALDRA5T3 
ALORO574 
ALDRONS75 
ALYRO5745 
ALORASTT 
ALDQNS7R 
ALDRN579 
ALORO580 
ALDROSSIL 
ALNRO582 
ALDRNS5R43 
ALNRO584 
ALOR OS5845 
ALNRN586 
ALDR1587 
ALDRN588 
aLnrasagd 
ALOROS9O 
ALSROSIL 
ALNR0592 
ALNRO593 
ALOR O59S4 
ALNRNS95 
ALNRO5S96 
ALDROSOT 
ALNRNASGR 
ALNROKDD 
ALSROEON 
ALNROADI 


ALNR A603 
ALARNANG 
ALDRN40S 
ALNROGNS 
ALNRN407 
ALDROANA 
ALNRN609 
ALNROGIN 
ALNROGILI 
ALNROGL2 
ALDRNELA 
ALORNG1L4 
ALDRN615 
ALDROBIE 
ALDROAIT 
ALNRNSGIA 
ALDROALS 
ALNRN629 
ALDRO621 
ALNRN622 
ALDROG2? 
ALDQNG24 
ALMRN625 
ALNRO626 


*- 90180C 
001810 


“001812 


001816 


“ OOLBLA | 


OO1S1E 
. 001822 
| 001828 


 00182C) 
(001830 


001834 
001838 


OO183A 
00183E 


, 001842 


‘| 001846 


001848 


- OOLB4E 
“001852 


* 901856 


-"OOLBSA 


001860 


001864 


901868 


 OOL86E 


- 901870 
001874 
-, OOLBTA 


- OOL8TE 


-” 901882 
001886 


go1eec 


* 
1 


- 001892 


; 001894 


~ 001896 


“ 001894 


00189 
 OOLB8A2 
0018A8 
OOLBAC 


50. 


05 


58 


47. 


90 


82 


94 
05 


4T. 
98 


D2. 


o7 
96 
05 
47 
49 


47 


D2 
D2 
18 


o7 
47 


at. 


94 
02 
98 
82 


FO 
FO 


FO 


40 


10 


F8 


03 
. 60 


26 


70 


_ 60 


imi 


40 
66 


FO 


0200 


03 


00 


TF 
ol 


80 


03 


OL. 


nanan 


oo 


‘D2 00 0, 


El 


01 
70 


70 


70 
ol 


00 


10° 


Tm NO 


nnn 


Flo 


FO 


FO 


BF 
07 
F8 
00 


anon” 


014 


001812 
-126 
001788 


782 


OA0 


758 
758 
004 . 


002 
O3A 


182 


108 


.00C 


OA4 


014 0 O14 


748 | 


720 


782 


74E. F 


OFC 


74E F TCE 
000 - 
780 F 
OCA 

7C6. 

10E 
706 F TCE 


104 F.104 


“422 


782. 

038 
758 
038 


Nee He He HH, 


0 014 


001788 


ICE - 


TCE 


F 730 


% 


T-O BASE ROUTINE —- GROUP 1 


I-O BASE ROUTINE 
I-O INTERRUPT ENTRY 
NTPIN ST SBSRGySHOLD SAVE ENTRY BASE RG 
BALR SBSRG10 SET TEMPORARY BASE 
USING *,SBSRG a fe eee 
‘Los SBSRG,SBADR SET UP I-O0 BASE RG 
' USING SBSAD,SBSRG ; . 
% ‘ : : 
2 ‘TM SWICH,64 "| ‘CHK IF INT SWT ON 
BC 1,SNTPN2 BRANCH IF ON 
- STM SRGF+SRGL+SSV4 NOT ON — SAVE REGS. 
‘ -, MVC SSV4(4)-¢SHDLD SAVE ENTRY BASE 
SNTPN2 LA SLUBRG,SUTAB L INITIAL UNIT 
s ‘ TABLE LACATION 
SNTPNI LH SUREG,2(SLUBRG) L UNIT ANORESS 
CH SUREG;58 CHK IF SAME AS 
% INTERRUPT UNIT 
Bc 8,ySNTPA BRANCH IF SAMEF 
LTR SUREGy SUREG CHK IF MINUS FOR 
* LIST EXHAUSTED 
BC 4ySNTPIR BRANCH IF MINUS 
LA SLUBRG,12¢SLUBRG) SET FOR NEXT 
x ; UNIT 
,BC ~  =-15,SNTPNL GO TO CHECK NEXT 
% UNIT ADDRESS 
*- oc x*02008- (VL) — THIS CHAR 
* Vee. PN MUST BF UPDATFD 
% WITH FACH CHANGE 
* RELEASE 
e 
SCLR MVC SHOLD( 1) SHOLD NUMMY INSTRUCTION 
* OVERLOAD BY MVC 
* TO CLEAR SENSF 
x: BYTF AREA IF IT 
& EXISTS ; 
a “[=0 BASE ROUTINE - GROUP 1 
*- I-O SASE ROUTINE 
; 
& 
x SET UP RETURN 
& 
USING SBSADsSBSRG 
SWAIT1 STM SREGR, SREGN,SRESR RESERVE CALL 
Ps os a PARAMETERS — 
SWAIT LPSW SWAYT WAIT FOR 1-9 COM- 
* PLETION WITH I-09 
& : INTPTS ENAALED 
SIOWA NI. SWICH,127 CLEAR CCL FLAG 
- CLO - SQESR4+6(2)_S7R05 CHK IF ANY 
Ps RESERVE CALLS 
BC 8, STOW+4 BRANCH IF NOT 
LM SREGR» SREGN» SRFSR RESTORE CALL 
& s PARAMETERS’ 
MVC .. SRESR+612),SZROS CLFAR RESERVE 
c AREA 
BCR 159SREGZ GN TO RESFRVE CALL 
STOW Oo! OCSLUBRG),SBSYF SFT UNIT RUSY FLAG 
CLC ‘SWADE(2)-SZ7R0S CHK IF WAIT SWT AN 
BC - TVeSWAIT RRANCH IF YES 
CH SUREG, SNTCU NQ -—=- CHK IF IS 
% INTERNAL CALL 
BC - 7ySfOwl BRANCH IF NO ~ 
-MVC. . SNTCU(2),SZROS YES ~- CLEAR INT. 
* ; 7 CALL SWITCH 
SIOWB MVC: ¥#(1)5*% DUMMY MVC -- OVERL 
eo. TO RESTORE SUNAD 
a es nh 8 AND SMNDS: 
2 LR -SREGZ,SREGR GO TO RFTURN TN 
- BCR 15,SREGZ INTERNAL CALL ; 
S1Owl BC 15,%+4 DUMMY AC =~ OVERL 
x a WITH BC TN 
a oe ae MESSAGE ROUTINE 
-*SYOW2 BC _ 15 9%+4 DUMMY AC -- NVERL 
-BC 1L5_9%44 DUMMY AC -- OVERL 
* WITH RC TO 
s eee fe ee Ot ADJUST ROUTINE 
S10w3- NI SWICH,191 CLEAR INTERNAL SWT 
MVC 56(A)}-4SRTRN SET UP RETURN 
LM  —s- SRGFySRGL~SSV4 «RESTORE REGISTERS 
S10R LPSW 56 RETURN TO CALL 


ALDRO628 
ALDR0629 
ALNRO630 
ALDRO631 
ALDR0632 
ALORN633 
ALDRO634 
ALNDRO635 
ALNRO636 
ALORO637 
ALDRO438 
ALDRO629 
‘ALDRO640 
ALNR 1641 
ALDRN642 
ALDRN643 
ALDRD 644 
ALDRO645 
ALDRO646 


‘ALD’? 0647 


ALDR0648 
ALNRN649 
ALDRO65N 
ALDRO465} 
ALD®N652 
‘ALDRO653 | 
ALNRN654 
ALDRO 655 
ALDR0656 
ALNROGS7 


"ALOR NG658 


ALNW0659 
ALNRO66N 
ALOROG41 
ALOR N662 
ALORNG4A3 
ALDRN 664 
ALDRO665 
ALD20666 
ALNROG47 


~ ALNRO 668 


ALDR0669 


ALN®9N67} 
ALN2NG72 
ALIRNGT3 
ALORNATS 
ALNR0C675 
ALORNGT6 
ALDRNG77 
ALDROGTA 


“ALDRO6BT9 
“SLMROAAN 


ALAANAS] 
ALDR OHA? 
ALDROGQI 
ALOR684 
AL IRO635 
ALN706346 
ALOR16B7 
ALNaNnAAA 
ALNRN6BO 
ALNQ0690 
ALIDROAQY 
ALNRNK9? 
ALN294693 
ALDROAAKAGS 
ALN2N69S 
ALNRObD6 
ALNAN697 
ALN20698 
ALORN699 
ALNRATAN 
ALNROTOL 
ALNRO 707 
ALNROTO3 
ALDROTNS 
ALONQN705 
ALORNITNG 
ALORN707 


-ALNRO7NA 


ALDRATNG 
ALDIATIN 
ALNRO7T1 
ALD90712 
ALNRO713 
ALOQRO7T1L4 
ALORN715 


001680 


001884 
001888 
.00188C 
0018CO 
0018C4 
OOL&CS 
OO1LSCE 
001802 
001806 


“001860C 


0O18E2 
OOLSES 


 OOLBEA 


" OOLBEE. 


~" QoLer2 


OO1L8F6 
OOLBFA 


OOLSFE 


001902, 


001906 


001904 


* OOLIOE 
 OOL9L2 


001916 — 
“001914 | 


OOLSLE 


00L922 


001926 


 OOL92A 


' OO1L9ZE 
001932 
001936 
OOL93A 
OOL93E 
001942 
001946 


 OOLS4C 
001950 
001956 
901958 

00195C 
601960 
001964 
001968 


001966 


47 


“9D 


47 
47 
91 
47 
02 
91 


47 


D2 
O07 


94 


9C 


47 


47 


92 
92 


92 
47 


96 
96 


91 


47 
91 


67 


4? 


91 


47. 


4T 


ot 
47 
91 
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I-O BASE ROUTINE 


INITIATE I-0 ACTION 
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SRTRN+4(4),SSVR 
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2ySWAITL 
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1,SAGINI 


O(SLUBRG),SASYF 
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DUMMY BC -- OVERL 
WITH BC 15ySXTRIN 
TO EXTERNAL INTPT 
BASE ROUTINE 

CHK ERR DEV PATH 

BC IF PATH FREE 

BC IF NOT CLEAR 

CHK FOR D E ALONE 

BC IF NOT LONE O £ 

SET UP RETURN 

CHK FOR WAIT CALL 

BRANCH IF NO 

SET UNIT ADDR 

IN WAIT SWITCH 

CLEAR 1-0 PLD PSW 
AND CSW — MINIMAL 
ROUTINE - AVERL 
WITH BC TN PSW 
SET UP ROUTINE 

CLEAR CC 1 FLAG 

CLEAR CC 1 FLAG 

ISSUE SIO TO UNIT 


ADOR SET BY ENTRY 
ROUTINE 
CC O ~ INSTRUCTION 
CC 0 - INSTRUCTION 
ACCEPTED 
CC 2 ~~ PATH AUSY 
CC 2 -— PATH BUSY 


~~ RESERVE OPN 
MINIMAL EXIT <= 
OVERL WITH BC TO 
SPECIFIC ROUTINE 
FOR CC 2 
NOY GPERATIONAL 
SET CC 3 IDENTITY 
SET ACTION CONE IN 
ERROR OSH 
CC 3 -- PATH NOT 
AVAILASLFE 
OVERL WITH BC Tn 
SPECIFIC ROUTINE 
FOR CC 3 
SEY UNTT BUSY FLAG 
CC lL -—- SET CCl 
FLAG ON -~ GO TD 
INTERROGATCR 


1-0 BASE RNUTINE ~- GROUP 1 
1-0 BASE ROUTINE - 


INTERRCGATE 1-0 
CONDITION 
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INTERRUPT OR 
CCOE 1 


CHK FOR 3CHANNEL 
ERROR FAILURES 
OVERL WITH AC TO 
CHK FOR SENSE FV 

BRANCH ON ANY =~ 

CHK FOR 3 CHANNEL 
PROGRAM ERRMRS 

BC TO FRROR LOG 

CHK FOR UNIT CHECK 

BRANCH IF YES -- 
MINIMAL FXIT -- 
OVERL FOR EXIT TA 
SPECIFIC RPUTINE 

CHK FOR UNIT EXCED 


- BRANCH TF VFS -- 


MENTMAL FXIT -- 
QVERL FOR EXIT TA 
SPECIFIC ROUTINE 
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SWADE(2),SZR05 
152SREGM 
SWICH,128 


~U,ySTOWA 
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SAGINW BAL 
LPSW 
x 
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SRQND EQU 
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x 
NOTE -- 
NOTE -~-<- 
NOTE ~-= 
NOTE -- 
NOTE -- 
ORG 
SIND .EQU 
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BAL 


I-O0 BASE ROUTINE - GROUP 1 
1-0 BASE ROUTINE 


INTERROGATE 1-0 INTERRUPT OR 
CONDITION CODE 1 
~ CONTINUED - 


68,16 
1,SWAIT1 


15_,SAGIN 


24(6)4SNSA 


50,X*1F8 
15,4%+8 
50,X"OF® 


SCHK1+7,C*S' 


SCHK1,0 
15,*+8 


SCHK1+7,C*D! 
SCHK1+6,C"1! 


SWICH,128 


1,*+98 


SCHK1+6,C'0! 


SWICH,1i27 


SREGM, SNTPHL 


SCHKL 


CHK FOR BUSY 
BRANCH IF BUSY TO 
TO RESERVE 


SFREP INTERFACE 
MOVE IN SENSE DATA 
1/0 DEVICE FAILURE 


1/0 CHANNEL FAILUR 
SI DFCISION CODE 
DISABLE EXTRN — 
CONTINUE LOG OUT 
SET DECISION CODE 
IN ERROR PSW 
SET CC 1 IDENITY 
IN ERROR PSW 
CHK IF IS CC 1 
BRANCH IF YFS -- 
MINIMAL ROUTINE ~ 
OVERL WITH AC TO 
SET CC 1 UNIT 
IDENTITY ROUTINE 
SET INTPT IDENTITY 
IN ERROR PSW 
CLEAR CC 1 FLAG 
OVERL WITH 3C TO 
SPECIFIC CC 1 
ROUTINE 
CHK WAIT STATUS 
WAIT TO CHECK 
CONDITIONS ~ OVER 
LOAD WITH Bf TN 
WRITE OUT ERROR 
ROUTINE 
END OF REQUISITE 
BASE ROUTINE 
GROUP 1 AREA 
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REQUIRES PRESENCE OF INTFRNAL CALL 


ENTRY 


ROUTINE 
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ISSUE ERROR MESSAGE CALL 


O,SNTCL 


SREGZ, SWHSW 
SREGA, SCHK145 


SREGN; 3 


SLUBRG,STYPR 
SREGR» SNTCAL 
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- CONTINUED - 
RESTORE AND WAIT 
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SNSA(6)~+SNSAV RESTORE SENSE 31TS 
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X*O00007FF® MASK TO EXTRACT 
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THE 1-0 ROUTINES 
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* 1-0 BASE ROUTINE - GROUP Ll 
2 INTERNAL UNIT SENSE ROUTINE 
a 
* le te 
x NOTE -— REQUIRES PRESENCE OF I-0 BASE 
* ROUTINE | 
& 
* NOTE ~— REQUIRES PRESENCE OF SENSE ENTRY 
* ROUTINE 
* 
# NOTE -- REQUIRES PRESENCE OF INTERNAL CALL 
CoM ba erée ct ROUTINE IN 1-0 BASE ROUTINE GROUP 
% ee i 
 ® NOTE -- REQUIRES THAT SLUBRG CONTAIN SENSE 
* DEVICE UNIT BLOCK ADDRESS AT TIME 
* OF ENTRY TO THIS ROUTINE 
5 
* NOTE —— SENSE INFORMATION -- 6 BYTES <= IS 
* CONTAINED IN SYMBOLIC AREA SNSA 
f.3 
USING SBSAD,SBSRG 
SENS EX O+SNTCL SAVE RFGISTERS 
LA SREGZ,SSNSW SET UP SENSE ENTRY 
MVC SNSUN(2),2(¢SLUBRG) SET SENSE SWT 
BAL SREGR»SNTCAL GO TO SSSUE INTER~ 
* NAL SENSE 
EX OeSNTCLA RESTORE REGISTERS 
EX O,SNTCLB RESTORE {-9 OLN 
PSW, CSW ANDO CAW 
EX: O,SNICLC RESTORE SAVED CCW. 
BCR 15,SREGM RETURN 
® = 
SENSA EQU) * - MEFINE CURRENT IC 
ORG S103 
BC 1lySENSA -SET UP ENTRY 
ORG SNTPA . 
AC 15,SENSAL SET UP ENTRY 
. ORG SENSA RESTCRE CURRENT IC 
x : : 
CLO . 2(2,SLUBRG),SNSUN CHK IF SENSE DEV 
. BC 8eS103+4 YES ~ GN TM RETURN 
“TM *eX*B0t SET TO CC 3 AND 
BC 15,SAGINL BRANCH IF NO 
* : 
SENSAL CLC 2(2,SLUBRG),SNSUN CHK TF SENSE NEV 
BC 7+ SENS8 AC IF NO 
MYC SNSUN(2),SZROS CLEAR SENSF SWT 
. LA SREGM,SNTPM SET TO PROCEED 
BC L5¢SNTPR1L44 GO TO RETURN 
SENSB TM 69614 CHK FOR 3 CHANNEL 
3 . “ERROR CONDITIONS 
% -- REPLACEN INSTR 
BC 159SNTPR RETURN TO CHECK 
SNSUN DC AL2(0) SENSE SWITCH 
x. I-O BASE ROUTINE - GROUP 1 
% CONDITION CONE 1 UNIT INMENTITY DISPLAY 
* 
* : . 
* NOTE -- REQUIRES PRESENCE OF I-M RASF 
e ROUTINE 
g 
* 
USING SBSAD,SBSRG boy 
SCCIN EQU * DEFINE CURRENT IC 
ORG SAGINL ; ; 
BC 1eSCCIN SET UP ENTRY 
OXG SCCIN RESTORE CURRENT IC 
am 
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LH © SREGM,STRCTT 
LA. SREGM, 1 (SREGM) 
STH |. SREGM,STRCTT 
SH | SREGM, STMX1 

BC 12,SBKSP1 

MVC = - STRCTT(2),SZROS 
ob. SREGM, SSVR432 
BC 15, SAGIND 

MVC 9 - STMX2+1(1),SMOV 
MVI = SMOV,255 

BAL  SREGM»SNKTR1 
BAL . SREGM, SENS 

TM SNSA+L 98 

BC Ly SBKSP2#4 

LH SREGM, SCNTR 

LA SREGMy 1 (SREGM) 
STH SREGM,SCNTR 
CLI SCNTR+194 

BC 4, SBKSPL 

MVI  SMOV,0 

BC 155€+8 

STH  SREGMySCNTR 

™ SCNTR4+1 57 

BC 8, SBKSPE 

BAL — SREGM, SNKTR1 
LH SREGMy SCNTR 
BCT SREGMySBKSP? 
MVC = SMOV(1) » STMX2¢1 


BC 159 SNKTRE 


NOTE -- REQUIRES PRESENCE OF TAPE RETRY 


NOTE -- REQUIRES PRESENCE OF UNIT SENSE 
IN T-0 BASE ROUTINE GROUP 1 


DEFINE CURRENT IC 


SET UP ENTRY 
RESTORE CURRENT IC 


RESET RETRY COUNT 
LOAD BKSP CLNR CNT 
INCREMENT COUNT 
SAVE CURRENT COUNT 
SUB MAX{HUM COUNT 
B IF NOT EXCEEDED 
RESET CLEANER CNT 
RESTORE REG B 
BRANCH TO LOG OUT 


ALNRL322 
ALDR1323 


ALOR1L324 


ALDR1325 
ALDR1326 
ALOR1327 
ALOR1328 
ALDR1329 
ALDR1339 
ALOR1331 
ALDR1332 
ALOR 1333 
ALDR1334 
ALOR1335 
ALOR1336 
ALOR1337 
ALDR1338 
ALDR1339 
ALDR1340 © 
ALOR1L341 
ALNR 1342 
ALOR1343 
ALDR1344 
ALDR1345 
ALDR134& 


* ALDR1347 


ALOR) 348 


- ALDR1349 


SAVE MOTICN SWITCH 
FORCE BACKSPACE 

TO BACKSPACE TAPE 
GO TO ISSUE SENSE 
CHK FOR LOAD POENT 
B IF AT LOAN POINT 
LOAD SPACE COUNT 
INCREMENT 

SAVE CURRENT COUNT 
CHECK FOR MAXIMUM 
BRANCH ‘ITF NOT 
FORCE TO FWD SPACE 


SAVE CURRENT COUNT 
CHECK SPACF COUNT 
RRANCH IF ZFRO 

TO FORWARD SPACF 
LOAD SPACE COUNT 
DECREMFNT AND CHK 
RESTORE MOTION SW 
GO TO REISSUE CAL 


UNIT EXCEPTIONAL CCNOTTION GROUP 
UF BASE BRUNE : 


NOTE +~ REQUIRES PRESENCE OF 


ASO ENS 


USING SBSADs SASRG 


EQU * 

ORG. SNTPD 

Bc 1,SUEX © 

ORG -SUEX 

BC. 1S y 844. 
159SAGIN 


1-0 BASE 


_ DEFINE CURRENT IC 


SET UP FNTRY 
RESTORE CURRFNT IC 


‘DUMMY BC -- OVFRL 
WITH @C TO UE 


SPECIFIC RASE 
ROUTINE 


RETURN ~- IF NOT 
INTERCFPTED TA 
INDICATOR WAIT 
MINIMAL ROUTINE 
“~- OVFRL WITH 8F 
-TO SET UP USER 
SUPPLIED ADORESS 
IN REGISTER 4 


ALNR1359 
ALOR1L351 
ALOR1352 
ALD&1353 
ALNR1354 
ALOR L355 
ALDR1356 
ALNR1357 
ALNR1358 
ALD&1359 
ALOR 1369 
ALOR 13461 
ALD&1362 
ALNR1363 
ALR136% 
ALOR1365 
ALDR1366 
ALNR1 367 
ALNR13689 
ALYDR1L 369 
ALDRL370 
ALDRL371 


AL0&1 473 
ALNQ13474 
ALN® 1375 
ALNR1375 
ALO®L377 
ALDQ1 379 
ALNRLATS 
AL IRIAN 
ALNR13A1 
ALNRQ] 3°? 
AL9R1383 
ALDA1 384 


~ALDR1385 


ALDP 1386. 
ALNRLIAT 


* ALORI3SA 


ALDI} AR9 
ALOR1T320N 
ALDR13I91 
ALD 1397 
ALRR1 393 
ALAR1394 - 
ALOR} 395 
ALDR 1396 
ALDR1397 


“AL9DR13°9 
ALORI3A99 


001D00 
OO1CFS 
OOLCFS 
001000 


- 901000 


- 001004 
001008 
001D0C 


001010 


‘ 


001014 


- OOICFC 


 OO1CFC 
001014 
OOLDL4 


OO1OLA 


mo % % HH Ot 


001788 
47 FO F 578 
4? FO F SIC 
47 FO F 580 
47 FO F 584 
47 FO F 588 
47 FO F 574 
001788 
47 FO F 580 
D2 02 F 735 F 76D 


47 FO F 186 


HAR HE HH HT 


15,5NTPH 


UNIT EXCEPTIONAL CONDITION GROUP ALDR1401 

UE SPECIFIC UNIT BASE ROUTINE ALDR1402 

ALNR 1403 

; ALNR1404 

NOTE -~ REQUIRES PRESENCE OF U E BASE ALDR1405 
ROUTINE ALNR 1406 
ALDR1407 © 

ALDR1408 

USING SBSAD,»SBSRG ALOR1409 
SUES EQU *® DEFINE CURRENT IC ALDR1410 
_ 4 ORG SUEX ALORIGLI 
BC 15,SUES SET UP ENTRY ALOR1412 

ORG SUES RESTORE CURRENT IC ALOR1413 

* ALOR 1414 
"BC 15,%44 MUMMY BC -- OVERL ALNA1415 

* SPECIFIC READER= ALODR1416 
PUNCH ROUTINE ALOR L417 
*SUEB BC - 15,%+4 DUMMY BC ~-— QVERL ALDR1418 
BC 15—9%+4 DUMMY BC -=- OVERL ALDRQ1419 

* WITH BC TOU E ALDR142N 
* SPECIFIC TYPF WR ALDR1421 
* ROUTINE ALDR 1422 
*®SUEC BC 15,%+4 DUMMY BC <= AVERL ALDR1423 
BC 15,%+4 3° DUMMY BC -- OVERL ALDRL424 

* WITH BC TOU E ALNR 1425 
* SPECIFIC PRINTFR ALNR1426 
* ROUTINE | ALDR1427 
*SUED BC 159444 DUMMY AG «= AVERL ALDR1G28 
BC 15,%+4 DUMMY BC -- OVFRL ALDR 1429 

% WITH BC TO UE ALDR 1430 
* SPECIFIC TAPE ALD21431 
* ROUTINE ALOR1432 
*SUER BC 15,SUEXP RETURN IF NOT ALD2 1433 
BC: 15,SUEXP RETURN IF NOT  ALNR1434 

& ; INTERCEPTED TO AILD91435 
% INDICATCR WAIT ALDOR 1436 
& WITH BC TO UE — ALNR1437 
UNIT FXCEPTIONAL CONDITION GROUP ALN2 1429 

UE BASE ROUTINE GROUP ALDOR 1440 

ALIR1441 

AI NR1449 

ALD2 1444 

SET UP UNIT EXCEPTION RETURN ANDRESS ALNR 1444 

; ALN2 7445 

NOTE -- REQUIRES PRESFNCE OF UNIT EXCFPTION AL991446 

' BASE ROUTINE AL9Q1447 

ALOR 1448 

: ALR 1449 

_ USING SBSAD»S8SRG ALOR 1459 
SUEXR EQU.- * DEFINE CURRENT IC ALD82451 
: ORG SUE XP ALNQ1452 
BC 15—¢SUEXR SET UP ENTRY ALAR P4623 

ORG SUEXR RESTORE CURRENT IC ‘ALNA1454 

MVC SRTRN#5(3) ,SSVR#17 ADNRESS ALOR 1GSS | 

BC RETURN ALDRILGES 


ALODQ L457 


OOLDLE 
001788 
001786 
OOLOLE 


OOlLDIE 
001022 


001026 


OO1D2A. 


001D2E 
001032 


001036 
001794 
001794 
~ 001036 


001036 © 
“+ QOLD3A 


. OOLDSE. 


001042 
001046 
“O01D4A 


4&7 FOF 


OOO0LDIE™ 


50 FO 0 014 
47 FO 1 LIA. 


92 02 F. 718 
92 02 F 740 


41 60 F 004 


0017688 


OOO0O00F 


OO1DIE 


000001 
001788 


47 FO-F 6F4 - 


00001036 
50 FO 0 014 


47 FO & 102 


92 02 F 
92 09 F 


718 
740 


41 60 F 010 


6F4 


001788 


OO0O000F 
001036 


000001 


001788 


esrahkonununnane 


eae eeaennnne 


wn 

x 

x : 
wn. 

=z 


USING 
EQU 
ORG 
oc 
ORG 
DROP 
USING 
ST 

BC 


“ 
=] 
_ oO 
‘s. 
x 


* 


OROP 
USING 
MVI 
MVI 


@SRDCW2 LA’ 


LA 


_ # 


6C 
* 


USING 


ORG 
nc 
ORG - 
_, BROP- 
USING 
| St 
BC 


* 


“prop 
_ USING 
MVI 
MVE. 

“LA 


BC 


EQU . 


I-O CALL ENTRY GROUP 
READ CARD ENTRY — WAIT 


ROUTINE 


NOTE -~ REQUIRES PRESENCE OF I-f BASE 


NOTE -—- REQUIRES PRESENCE OF ADORESS 


COHSTANT IN SINTRY TABLE 


SOSAD,-SBSRG 
3 

SINTRY 
A(SROCW) 
SROCU 

SBSRG 
@,SREGZ 
SBSRG,SHOLD 
15eSSAVR 


SREGZ 
SBSAD,SBSRG 
SHNWs SWATF 
SCCW, SRO 
SLUBRG,»SCRDR 
' SLUBRGe SCRDR 


1551060 


1-0 CALL 


DEFINE CURRENT IC 
DEFINE TABLE LOC 
DEFINE ROUTINE ENTRY 
RESTORE CURRENT IC 


RESERVE FNTRY BASF 

GO TO SAVE REGS, 
SEY BASE REGISTER 
AND INITIALIZE 


. CCW AND CAW 


SET FOR WAIT CALL 


SET TO READ 


SET CARD READER 
SET CARD READER 


REFERENCE 


GO TO START I-00 


ENTRY GRUP 


“WRITE MESSAGE ENTRY - WAIT 


ROUTINE 


SBSAD.SASRG 
Pa 
SINTRY#12 .-°: 
AUSHMSW) 
SWHSW 

SBSRG 
@,SREGZ 
S8SRG- SHOLD 


15,SSAVR 


SREGZ 


SBSAD, SASRG 


SHERY, SUATF 
SCCWe SURRT 


SLUBRG, STYPR 


15yS10G0 


NOTE -- REQUIRES PRESENCE OF I[-N BASE 


NOTE -~ REQUIRES PRESENCE OF ADDRESS 
CONSTANT IN SINTRY TABLE 


DEFINE CURRENT IC 
DEFINE TABLE LOC © 
DEFINE ROUTINE ENTRY 
RESTORE CURRENT IC 


RESERVE ENTRY AASF 
GO YO SAVE REGS, 
SET BASE QEGISTER 
_ AND INTTIALIZE 
CCW AND CAW 


SET FOR WATT CALL 
SET TO WRITE 1 


LINE 
REFERENCE 


GO T® START 1-0 


“SFT MESSAGE UNTT 


ALNRL459 
ALDR1460 
ALOR1461 
ALDR1462 
ALOR1463 
‘ALDR1464 
ALOR1465 
ALDOR 1466 
ALOR1467 
ALOR1468 
ALOR1I469 
ALDR1470 
ALDR1471 
ALDR1472 
ALDR1473 
ALNR1474 
ALOR1L475 
ALDR 1476 
ALOR1477 
ALDR1478 
ALOR1479 
ALDR148N 
ALOR1L481 
ALDRI4&A? 
ALDRL4A4 
ALDR14R4 
ALOR 1485 
ALOR 1466 
ALDR1487 
ALORI4RA 
ALOR1489 


ALNQ1491 
ALN21492 
AL991493 
ALDR 1494 
ALIR1496 
4LN21496 
ALN®1497 
ALDQ 1492 
ALD21499 


* ALNATSAN | 
— ALORTSOL 


ALDR15N2 
ALD2 1503 
ALNR 15046 
ALNR1505 
ALDR 15946 
ALN@1507 
ALNR15NA 
ALDR1TS5N9 
ALN@1510 
ALORISIL 
ALNOLSL2 
ALNR1513 
ALDR1514 
ALORIS15 
ALDRISIA 
ALORI517 
ALNR1513_ 
ALDR1519 
ALIR1570 
ALNR1521 
ALDR1522 


OO1LD4E 
001848 
001848 
0017D0 
0017D0 
OO104E 


OO1D4E 
001052 


001LD56 
O01D5A 


OOLOSE 
001062 


001066 
OOLDGA 


OO1DSE 


001072 


OO1D76 


' 001704 
001704 


901076 


001076 
OOLDTA 


OO107E 


9OLDS2 
001086 


_OOLOBA 


 0O1DBE 
- 901092 


D7 05 F 7C0 


O0001LD4E 


50 
47 


92 
47 


41 
41 


41 
47 


92 
47 


FO 
FO 


02 


FO 


30 
20 


Li 
FO 


04 
FO 


nO NS 


nm wT 


50 FO 0 


47 FO 1 


92 
41 


41 
47 


47 


02 
20 
30 
11 
FO 
FO 


a~anoonn . 


001788 
F 7CcO 
OO0000F 
OO1LDSE 


014 
OEA 


000001 


001788 . 


718 
5D6 


006 
7cO 


018 | 
6E2 


740 | 
bF4 


-- 001788 


00001076 


OOOOOF 


001076. 


O14 
oc2 


000001 
001788 
718 
784 
ool 
014 
6E2 
5BA 


ALOR1524 
ALDR1525 
ALOR1526 
ALDR1L527 
ALOR1528 


“ALDR1529 


ALDR1539 
ALDR1531 
ALOR1532 
ALCR1533 
ALOR1534 
ALOR1535 
ALNR1536 
ALOR1537 
ALOR15398 
ALOR1539 
ALDR1549 
ALOR1L541 
ALDR1542 
ALDR 1543 
ALDR1544 
ALOR1545 
ALDR1546 
ALOR 1547 
ALNR1548 
ALDR1549 
ALOR 1550 
ALORI5$1 
ALORLS52 
ALNR1553 
ALO81554 
ALDR 1555 
ALONR1556 
ALDA1557 


. ALDR15598 


* “T=-0 CALL ENTRY GROUP 

* SENSE ENTRY ~ WAIT 

, 3 

* NOTE -— REQUIRES PRESENCE OF I-O BASE 

* ROUTINE 

€ 

# ‘NOTE -— REQUIRES PRESENCE OF ADDRESS 

* CONSTANT IN SNTRY2 TABLE 

« : 

* NOTE -— REQUIRES THAT SLUBRG CONTAIN SENSE 

wo DEVICE UNIT BLOCK ADDRESS AT TIME 

* OF ENTRY TO THIS ROUTINE 

* OR 

*' REQUIRES PRESENCE OF LOCATE SINTRY 

* TABLE UNITY BLOCK ROUTINE AND SENSE 

x ENTRY LOCATE SINTRY TABLE UNIT. 

e BLOCK EXIT ROUTINE eae 

ae 

—** USING SBSAD,SBSRG : 

SSNSW EQU) * DEFINE CURRENT IC 

. ORG SCLR 
xc SNSAL6) »SNSA CLEAR SENSE AREA 
ORG SNTRY2+4 OEFINE TABLF LOC 
pc A(SSNSW) DEFINE ROUTINE ENTRY 
' ORG SSNSW RESTORE CURRENT IC 

™ ; 
DROP SBSRG 
USING *+sSREGZ 
St SB SRG,» SHOLD RESERVE ENTRY BASE 

BC 15ySSAVR GO TO SAVE REGS, 

* SET BASE REG, AND 

* INITIALIZE CCW 

* AND CAW 

” 

DROP SREG2Z 
USING SBSAD,SBSRG 
MVI SWNW, SWATE SET FOR WAIT CALL 

*SSNSL 8C L5 9 *44 NUMMY AC —~ OQVERL 
BC “15 9%+4 DUMMY BC -= OVERL 

* WITH BAL SRFGM TN 

* LOCATE SINTRY 

* BLOCK ROUTINE 
LA SREGNys6 SET BYTF CQUNT 6 
LA SREGAySNSA SET SENSF BYTES 

* LOCATION 
LA SREGZ,24(SREGZ) ADJUST RETURN 
BC 15¢SSAVR1 

2 
MVI SCCWeSNSNP SET SENSE COMMAND 
BC -—+~—_:«a15,S10G60 GO TO ISSUE SENSE 

Py 

3 1-0 CALL ENTRY GRNUP 

& WRITE MESSAGE SINGLE SPACE ENTRY - WAIT 

* 

& 

-& NOTE <— REQUIRES PRESENCE OF WRITE “FSSAGE 

& ENTRY ROUTINE 

, & . 
* NOTE ~= REQUIRES PRESENCE OF ADDRESS 
* CONSTANT IN SNTRY2 TABLE 

a 

« ¢ 
USING SBSAD,SBSRG . 

SPCMW EQU * NEFINE CURRENT IC 
ORG SNTRY2¢8 DEFINE TABLE LOC 
oc AUSPCMW) DEFINE RNUTINE FNTRY 
ORG SPCMW RESTORE CURRENT IC 
DROP SBSRG 
USING *,SREGZ 
ST | SBSRGySHOLO. RESERVE ENTRY BASE 
BC L59SSAVR: ‘GN TO SAVE REGS,» 

* SET BASE REGISTER 

* ANO INITIALIZE | 

* CCW AND CAW 
DROP SREG2Z 
USING SBSAD,SBSRG 
sVI SWNW, SWATE SFY FOR WAIT CALL 
LA SREGA» SBLNK SET 
‘LA  ° -SREGN,1 SINGLE. 

LA SREGZ»20(SREGZ) SPACE 
Bc 15eSSAVR1 
BC L5eSWMSWHL2 . GO TO WRITE 


ALNRI1559 
ALDR1560 
ALNR1561 
ALOR1562 
ALOR1563 
ALNR1564 
ALDR1545 
ALNR1566 
ALOR LS67 
ALNR1L568 
ALR 1569 
ALNRLS7O 
ALORLS7} 
ALDRI572 
ALMRIST3 
ALD8 1574 
ALORLS75 


ALOR LST? 
ALTA 1S7& 
APDRIS79 
ALOR T5AN 
ALDRISAL 
ALDR1L5A2 
ALOR15°43 
ALOR TSAS 
ALAR TEARS 
ALOR IS BH 
ALNRI5R7 
ALDQ158R 
ALN T5889 
AL TRTS§ON 
ALNRLS9OL 


— ALDRTS92 


ALDR1 5°93 


- ALNR 1694 


ALDR1595 
ALR 1596 
ALNR1597 
ALOR1598 
AL921599 
ALAR1TEND 
ALDR1601 
ALOR LA02 
ALN 1603 
ALOR1TA04 
ALORTAOS 
ALOR L606 


_ ALDRIT607 


ALDR1698 


001096 
OOLD9A 


“OOLDIE 
QO01LDA2 


001DA6 
OO1DAA 


OO1DAE 
001LDB2 


001083 
001084 
001088 


‘OOLDBC © 


001L0CO 
o010c4 


001DCB 


OOLncc | 


OOLDCE 
001788 
001788 
OO1DCE 


OOLDCE 
001002 


001006 


OO1DDA 


OQOLDDE 


50 FO 


92 02 


001788 


96 02 F 718 


624A 


n mn 


92 00 


FO 
02 


47 
96 


622 
718 


92 FF 624 


41 60 034 


nn mn nn 


47 


6F4 
00. 


FO. 


645 
000. 
001. 
004 


00 
20 
30 
il 


n C007. 


FO F 6E2 


58 FO F 000 


0000 


001788 


O0001DCE 


OOO000F 


OOLDCE 
0 014 


47 FO 1 O64 


| 000001 
: 001788 
92 OA F 645 
F 740 


47 FO F 614 


eeaeteRe OHHH HEHE HH HH HH 


3 


I-D CALL ENTRY GROUP 
TAPE ENTRY BASE ROUTINE 
NOTE =~ REQUIRES PRESENCE OF I-O BASE 
ROUTINE 
NOTE -— REQUIRES PRESENCE OF TAPE UNIT 
REFERENCE IN SINTRY TABLE —- SRTPW 
NOTE ~- IF READ TAPE -~ SRTPW -- IS NOT ONE 
DOF THE TAPE FUNCTIONS SFLECTED TO 
BE INCLUDED IN AN I-0 PACKAGE 
WHICH DOES USE OTHER TAPE FUNCTIONS 
THE ADDRESS FOR ANY ONE OF THE 
OTHER TAPE CALLS FROM THE SECONDARY 
CALL ENTRY TABLE MAY BE SUBSTITUTED 
IN THE SINTRY TABLE BLOCK NOW 
HOLDING THE SRTPW CALL ENTRY 
ADDRESS. ALL LINKAGE REFERENCES 
MUST BE ADJUSTED ACCORNINGLY 
USING SBSAD,SBSRG 
STPBKW OI SWNW, SWATF SET FOR WAIT CALL 
*STPBK MVI SHOV.0 SET BACKWARD 
MVI SMOV,0 SET BACKWARD 
® MOTION SWITCH 
“BC 15,%+12 
STPFWHW OT SWNW, SWATF SET FOR WAIT CALL 
*STPEW MVI SMOV,255 SET FORWARD MOTION 
MV1 SMOV, 255 SET FORWARD MOTION 
* SWITCH 
LA SLUBRG » STAP SET TAPE UNIT 
REFERENCE 
BC 15,S19G0 GO TO START I-f 
SMOV OC ALLO) TAPE FWO-AKWD 
Ps : MOTION SWITCH 
& ONES ~ FWD 
* ZEROS ~ BKWD 
* : 
% _ SET UP FOR CHANNEL CONTROL COMMAND 
‘ 
STCMD MVI STMX1L4140 SET NO RETRY SNUNT 
-LA SREGA,O SET UP CHANNFL 
LA SREGNyL COMMAND PARAMETERS 
LA SREGZs4(SREGZ) ADJUST SREGZ FOR . 
* i RETURN 
BC ~—=—-15,SSAVRL 
4“ . PARAMETERS 
STFSB OL SBSRG»SBSAD DUMMY L -=- QVERL 
* WITH LA SREG7 OF 
x FWD SPACE YTAPF 
e i RECORD ROUTINE 
STMXL DC AL2(0). RETRY MAXIMIM 
& 1-0 CALL ENTRY GROUP 
* REAN TAPE RECNRD - WAIT 
a 
2 
* NOTE -= REQUIRES PRESENCE OF TAPE FNTRY 
* BASE ROUTINE 
* F 
* NOTE -= REQUIRES PRESENCE NF ANDRESS 
% - -  GONSTANT IN SINTRY TABLE 
* 
% 
_ USING S8SAD-SBSRG 
SRTPW FQU) # NEFINE CURRENT IC 
ORG SINTRY+48 OEFINE TABLE LOC 
pc A(SRTPW) DEFINE ROUTINE ENTRY 
ORG SRIPW RESTORE CURRENT [C 
DROP SASRG 
USING *,SREG2. ; 
'$T SBSRG» SHOLD RESFRVF ENTRY BASE 
BC 15¢SSAVR GO TO SAVE RFCS. 
* : SET RASE RFGISTER 
* AND INITIALIZE 
* CCW AND CAW 
x : . a 
“DROP SREG? 
USING SBSAD*SBSRG 
MVI STMX141,10 SET RFAD RETRY 
; COUNT 
MVI- SCC WeSRD- SET TO RFAN TAPE 
* RECORD 
BC 15,STPFEWHW GO TN FWD MOTION- 
% “« WAIT ENTRY 


ALDR1610 
ALDR1611 
ALDR1612 
ALDR1613 
ALDR1614 
ALDR1615. 
ALDOR L616 
ALDR1L617 
ALNR1618 
ALDOR 1619 
ALD21620 
ALNR 1621 
ALDR162? 
ALDR1623 
ALDR1624 
ALDR1625 
ALDR1L626 
ALDR 1627 
ALOR 1628 
ALAR1629 
ALDA163N 
ALD21631 
ALDR1L632 
ALDR1633 


ALOR 1634 


ALDR 1635 
ALDR 1636 
ALDR1637 
ALNR16348 
ALOR1L639 
ALDR1640 
ALORI 641 
ALDR1L642 
ALDR1644 
ALDRLA4S4 
ALDR 1645 
ALNW1646 
ALOR1647 
ALNQ 14648 
ALDR1L449 
ALNR1650 


ALOR 16%) 

ALOR L652 
ALDOR 1653 
ALNR 1654 
ALOR1E55 
ALDR 1656 
ALNR 1657 
ALIR21658 
ALOR1659 
ALN8 1660 
ALOR L661 
ALN® 1662 
ALOR }6A3 


ALNR1665 
ALR 16646 
ALNR 14667 
ALMA LAAR 
ALN® L669 
ALOR 1679 
ALN 1671 
AL VRLA67T2 
ALDQ16743 
ALNRLET4S 
ALDQ LETS 
ALNQ1LGE7A, 
ALIRYAT? 
ALOR 1473 


ALNQ1679 . 


ALNR 1684 
ALDR L681 
AL92 1692. 

ALDRYARA 
ALN®16R4 
ALDRIARS 
ALDI14666 
ALOR YFQ7 © 
ALNQ 1688 
ALORTARD | 
ALNR 1699 
ALNR1691 
ALOR1L692 

ALMAQ 1693 
ALNR1694. 
ALNR14695 
ALNR1696 
ALDQ1L697 


OOLDE2 
OOLT7F4 
OO17F4 
_001DE2 


* OO1LDE2 
001DE6 


OOLDEA 
OOLDEE 


OOLDF2 


OOLDF6. 
0010C8 | 


0010C8 
OOLTFC 


OOLTFC 
— OOLDFS 


OO10F6 


OO1OFA 


- OOLOFE 


001602. 
OOLEO6 | 


"50 FO 0 


47 FO F 


001788 


oooo1ne2. |. 


50 FO 0014 
47 FO 1 056 


47 FO F &2C 
92 27 F 740 


47 FO F 60E 


4 


41 10 F 66€E 


000010F6 


014 


47 FO 1 042 


62C 
92 37 F 
47 FO F 6LA 


OO000F 


OOLOE2 


000001 


001788 


001788 


OOOOOF 
OOLDF6 


000001 


001788 


740 =. 


ALDR 1699 
ALDR1700 
ALOR1701 
ALDR1702 
ALDR1703 
ALDR1704 
ALOR1705 
ALDR1706 
ALDR1707 
ALDR1L708 
ALDR1709 
ALDR1710 
ALORLTLI 
ALNRL712 
ALDR1713 
ALORI714 
ALOR 1715 
ALOR1716 
ALORLT17 
ALDR1718 
ALDR 1719 
ALOR1720 
ALORLTAL 
ALORL722 
ALDR1723 
ALNR 1724 
ALORI725 
ALOR1726 
ALDRIL727 
ALDR1728 
ALD&1729 
ALORI73N 
ALDRLT3L 


" ALAR] 734 
ALR L744 


ALNQ1735 
ALAR Y 736 
ALMQ} 727 
ALNQ1738 
ALNR 1739 
ALIRL740 
ALOR L741 


- ALOR] T49 


& I-0 CALL ENTRY GROUP 
* TAPE BACKSPACE RECORD — WAIT 
«x 
ae 
* NOTE “<~ REQUIRES PRESENCE DF TAPE ENTRY 
& BASE ROUTINE 
x 
* NOTE -- REQUIRES PRESENCE OF ADDRESS 
* CONSTANT IN SNTRY2 TABLE 
x 
* F 
USING SBSAD,SBSRG 
SBSRW EQU: * 3 DEFINE CURRENT IC 
ORG - SNTRY2+40 DEFINE TABLE LOC 
DC. A(SBSRW) DEFINE ROUTINE FNTRY 
“ORG  SBSRW “RESTORE CURRENT IC 
DROP ° SBSRG 
USING *,SREGZ 
ST ‘SBSRG, SHOLD RESERVE FNTRY RASE 
BC  -15ySSAVR GO TO SAVE REGS, 
* SET BASE REGISTER 
* AND INITIALIZE 
* CCW AND CAW 
% 
DROP SREGZ 
USING SBSAD,SBSRG 
BC 15,STCMD “ - GO TO SET 
% PARAMETERS 
MVE = SCCWy STBS SET TO BACKSPACE 
& | RECORD 
BC 15,STPBKW GO TO BKWD MOTICN 
x i WAIT ENTRY 
& 
* 1-0 CALL ENTRY GRMuUP 
* FORWARD SPACE TAPE RECORD = WAIT 
2 
= 
# - NOTE -~ REQUIRES PRESENCE OF TAPE ENTRY 
& BASE R0UTINE 
x 
* NOTE -= REQUIRES PRESENCF NF ANDRESS 
CONSTANT IN SNTRY2 TABLE 
s 
* : Fa ; 
USING SBSAD,SBSRG 
SFSRW EQU # DEFINE CURRENT IC 
ORG STFSB 
LA . SREGZ,S&SRW SET FOR FORWARD SP 
ORG  SNTRY2+48 DEFINE TAALE LOC 
oc A(SFSRW) DEFINE ROUTINE ENTRY 
ORG SFSRW RESTORF CURRENT IC 
* : 
DROP SBSRG . 
USING *,SREGZ _ 
st SBSRG» SHDLD RESERVE ENTRY AASF 
BC . 15sSSAVR GO TT SAVE R°GS, 
& SET BASE REGISTER 
& AND INITIALIZE 
* CCW AND CAW 
. DROP SREGZ 
Fe 
USING SBSAD,SASRG 
: BC 15,STCMD GO TO SET 
* PARAMETERS 
. -MVI SCC WeSTFSR SET TO FORWARD 
x SPACE 2ECAPRN 
BC GO TO FWR MOTION © 


'LSySTPFWW 
WAIT ENTRY 


ALNR L743 
ALMR1744 
ALAR 1745 
ALNQIT4A 
AL9 1747 
ALDRY74a 
ALR] 749 
4L921 750 
ALORL7TFEL 
AL8Q1 752 
ALAR 1753 
ALMQ1 754 
ALN81755 
ALDR 1756 
ALOQL757 
ALORLTSA 
ALONRIT759 
ALNR2176% 
ALDR LTA 
ALOR 1762 
AL SQETAR 
ALORI7464 


-ALOR L765 


ALOR 1766 
ALOR 1767 
ALAR LTHR 


. QOLEOA 
' 001806 
001808 
OOLEOA 


OO1EQA 
OO1EOE 


OOLEL2 
OO1EL6 


“OO1ELA 


Q01E20 
OOTE24 


OO1E28 
OO1E2C 


. OO1LE30 


OO1LE34 


 901€38 
OOLE3A 


—OOLESE 


OOLES2 
OOLES6 
OOLESA 
OOLE4E 
OOLES2 
OOLE56 


OOLESA 
Q01E60 


OOLES4 
QOLE6A 


OOLEGE 
OO1E72 


OOLETA 


OOLETC 
OO1E80 


OOLESS 
' OOLESS 


OOLESE | 


OOLE92 
OOLE96 
OOLESA 
OoLEegc 
GOLEAD 


05 
58 


90 


QOOOOLEOA 


50 FO 0 
47 FO 1 


92 
47 


02 F 
FO F 


DS 01 
70 
33 


ll 
FO 
03 
‘FO 


47 
41 


i 
47 
92 
47 


ManNRO Onn wT 


FO 
FO F 


80 
50 
92 
91 
4&7. 
44 


00 
10 
ot 
40 
10. 
00 
Fé 


mARANHNOMN 


D2 
96 


03 
40 


7h 


02 
90° 


03 
23 


20 
03. 


92 
02 


o on nT 


47 FY 


50 
48 


46 0 
7% 0 


94 
D6 
92 


FD 6 
00 6 
2 OO F 
53 10 0 
47 FO F 
0000 

ooocLEcs 
esters: 


001788 


00000F 
OOLEOA 


014 
O2E 


900001 
0017388 


718 
692 


716A F TCE 


6A0 


001 


O1E 
6E2 
740 
6F4 


000001 
QO1LE3A 


OFE 


703 
038 
726 
782 
6F2 
OCco | 
758 


758 0 014 
782 


TCA F TCE 
740. 


744 


048 F 714 


008 


004 
002 


000 
000 
718 
038 
140 


001788 | 


F 715 


a 


I-O CALL ENTRY GROUP 


CONTROL OR MODE SET ENTRY ~ WAIT 


e 
* 
* 
* " NOTE —~ REQUIRES PRESENCE OF I-O BASE 
x ROUTINE 
* 5 ; 
* NOTE —~ REQUIRES PRESENCE OF ADDRESS 
* CONSTANT IN SNTRY2 TABLE 
* 
* NOTE -~ REQUIRES PRESENCE OF COMMAND OP 
* MODIFIER ROUTINE -- SMOOF -~ TO 
* SPECIFY OPERATION OF CONTROL 
* COMMAND 
* 
t NOTE —~ REQUIRES THAT SLUBRG CONTAIN CON- 
Pe . TROL DEVICE UNIT BLOCK ADORESS AT 
* TIME OF ENTRY TO THIS ROUTINE 
« OR 
* REQUIRES PRESENCE OF LOCATE SINTRY 
* TABLE UNIT BLOCK ROUTINE AND 
* CONTROL ENTRY LOCATE SINTRY TABLE 
* _ UNIT BLOCK EXIT ROUTINE 
* 
USING SBSAD,SBSRG-~ 
SCTLW EQU) & DEFINE CURRENT IC 
ORG SNTRY2+60 DEFINE TABLE LOC 
pc AUSCTLW) DEFINE ROUTINE ENTRY 
ORG  SCTLW RESTORE CURRENT IC 
DROP SBSRG 
USING *,SREG2 
ST SBSRG, SHOLD RESERVE ENTRY BASE 
BC 15 SSAVR GO TO SAVE RFGS, 
* SET BASE REGISTER 
AND INITIALIZE 
CCW AND CAW 
DROP SREGZ 
USING SBSAD,S8SRG ; 
MMVI SWNW_ SWATE SET FOR WAIT CALL 
SCTL1 BC 159444 DUMMY BC -- OVEAL 
Ps WITH BAL SREGM TN 
* LOCATE SINTRY 
* BLOCK ROUTINE 
> CLC)|©6-SSVR41402),55ZROS CHK TF CALL 
¢ BYTE COUNT ZERO 
BC Ty%48 BRANCH IF NO 
LA SREGN,L(SREGN) YES — SET BYTE 
® COUNT TO ONE 
LA SREGZ, 30(SREGZ} ADJUST RETURN 
BC 15, SSAVRL 
MVI SCCW,SCTLOP SET CTL COMMAND 
oo BC 15,/S10G0 GO TO ISSUE 
* CONTROL COMMAND 
+ 1-0 BASF ROUTINE - GROUP ? 
« 1-0 BASE ROUTINE 
a 
* NOTE - THIS ROUTINE MUST FOLLOW ALL MONULFS 
* ADDED TO BASE ROUTINE GROUP 1 AND 
oe MUST PRECFNE CONSTANTS 
* . : 
* SAVE ENTRY REGISTERS AND 
* INITIALIZE CCW AND CAW 
6 
DROP SREG2 
SSAVR BALR SBSRGe0 SET TEMPORARY BASE 
- USING ®,SBSRG | 
L SBSRG»SBADR —«- SET_I-O BASE RFGS 
USING SBSAD,SBSRG 
SSM SLONT DISABLE 1-Q¢EXKTRN 
ST SREG2Z,56 RESFRVE SREG2 
MVI SCHKI 91 ENABLE EXTRN INTRP 
TH SWICH, 64 CHK TF INTL SWT ON 
BC 1,SSAVR1 BRANCH IF YES 
EX 0» SCLR CLEAR SENSE AREA 
STM  SRGF»SRGL»SSV4 NEW FNTRY ~~ SAVF 
‘ - «REGISTERS 
MVC SSV4(4),SHOLD SAVE ENTRY BASF RG 
SSAVRX OF SWECH, 64 SET INTNL FLAG ON 
* OVERL WITH BC TO 
* SCHGU IN MULTIPLE 
* UNIT ADNR ROUTINE 
SSAVRY HVC  STRCT(4)eSZROS RESET RETRY COUNTS 
SSAVRL STM  SREGA,SREGN,»SCCH INITIALIZE CCW 
* DATA LOC, BYTE 
MVI —- SCC HS SILIF COUNT AND SILI BIT 
HVC =7264) » SCAW INITIALIZE CAW FOR 
e 2ND CCW 
BC 15, 8(SREGZ} RETURN TO CALL ENT 
s 
* COMPLETE SEY UP TO ISSUE SIO 
* 
$10co st SREGL»4(SLUBRG) SAVE U E RFTURN 
S$1GOl LH SUREG, 2¢SLUBRG) SET UP CURRENT [-0 
2 UNIT ADDRESS 
r OVERL WITH BC TO 
° SCHGUL IN ROUTINE 
e FOR MULTIPLE UNIT 
@. ; SERVICE 
$1G02 NI O(SLUBRG),SHATFO CLEAR WAIT FLAG 
oc Of1,SLUBRG),SWNW SET CURRENT WAIT 
MVI = SUP O FLAG THEN RESET 
L SREGZ» 56 RESERVE SREGZ 
BC 15,SIOIN: GO TO START 1-0 
SCAW OC atsccu) 
Siu OC AL2t0} HOLO CURRENT WAIT— 


UOMMATT FLAG 


ALOR1770 
ALDR1771 
ALDR1772 
ALORI773 
ALDR1774 
ALOR1L775 
ALDRIL776 
ALNRLT7T7 
ALORLT78 
ALORLT79 
ALDR1780 
ALORL7861 
ALOR1782 
ALOR1 784 
ALOR1L784 
ALOR1785 
ALOR1786 
ALORLT87 
ALDR1788 
ALOR1L789 
ALAR1790 
ALDR1L791 
ALNR1792 
ALDR1L793 
ALNR1IT9I4 
ALDR1795 
ALDR1796 
ALOR1797 
ALOR1798 
ALDR1799 
ALDR1800 
ALORLBOL 
ALORIBN2 
ALNR1803 
ALDR 1804 
ALOR TROS 
ALDRIANG 
ALNR1IS807 
ALNR1808 
ALOR1809 
ALORISIO 
ALNR 1411 
ALORIBL2 
ALDRLAL3 
ALNR1E14 
ALORIBLS 
ALNRLALG 
ALOR1LB17 
ALOR1LS814 
ALNR 1819 
ALOR1B90 
ALNQ1921 


ALDR1A23 
ALORI AIG - 
ALDRLA25 
ALDR1P26 
ALNRL AZT 
ALNR 1878 
ALDRLA29 
ALNR 1839 
ALORA 
ALORYAR2 
ALDR1834 
ALDQ 1834 
ALOR1A35 
ALORIA36 
ALNR1837 
ALOR LAZAR 
ALDQ1839 
ALNR1A4N 
ALOR 1841 
ALOR 184? 
ALDRIAGA 
ALODRIASSG 
ALOR 1845 
ALAR 1A46 
ALORIRGT 
ALNR1B48 
ALNR 1849 
ALNR 1859 
ALORS 
ALDR185? 
ALDQ 1853 
ALOR 1854 
ALDOR LASS 
ALDR 1856 
ALDR1AS7 
ALNRI858 
ALNR1BS9 
ALDR1869 
ALOR 1861 
ALORLAGB2 
ALOR1L863 
ALOR 1864 
ALOR1865 
ALDR 1866 
ALDR1B67 
ALDR1AKB 
ALOR1869 
ALOR 1870 
ALDOR 1871 
ALOR1AT2 


ALOR 1873 


ALOR1874 
ALORLRTS) 


 . OOLF4A 


“OOLEASB 


' OOLEAB FF 


OO1EA9 06 
QOLEAA 0000 
OO1EAC 00001856 - 


OO1EBO 01. 


“QO1EBL 02 
OO1EB2 0000 
_ OOLEBS FOC9FOCI - 


OO1EBB FF 

OO1EB9 04 
 QOLEBA 0000 

| 001EBC 00000000 - 


‘OOLECO. 0000000000000000 


OO1ECB 0000000000000000 | 


QOLEDO 0000000000000000 
— QO1EDB 0000000000000000 


. OOLEEO 


 OO1EES 
— QO1FO8 0000 
ODLFOA 00 
‘OOLFOB. 00 


— OOLFOC 
OO1F38 O0001788 _ 
_OOLF3C 40404040 * 


“001F40 00000000 
O01F4% 00000000 


OO1F48 
“OO1F4B 0000 
00000000 
0000 
0000 
0000 
0000 


OOLF4E- 
_ OO1F50 
“OOLFS2 
 QOLFS4 
O01F56 


 OOIFSA’ 00 
 OOLESB 00. 


“QOLFsSC FF 
“OOLFSE 


ee eet eet 


Hs 2@ 


oooco000—ti«é‘<‘( Q*ét:*# 


SWAYT 


_ SCHK1 


SRTRN 


SMODL 
SCCW 
* 


SRESR 


SSV4 
SSVR 

SWADE 
SWICH 


ann @ 


SSVRB 
SBADR. 
SBLNK 


* SUNAD 


SHOOS | 


eee Ge kee 


w 
Zz 
wn . 
> 


SNTCU 
SCNTR 
STRCT 
STRCTT 
SZROS 
% 

* 

* 

SVSWC 
SIONI 
% ‘ 
SIOALI 
* : : 


* 


OS 


oc 


DC 


oc. 


DC 


oc 


oC. 


oc 


pc 


oc 
oC 
oC 


| ALLOL) 


1-0 BASE 
I-0 


00 
AL1(255). 
AL1(6) 
AL2(0) 


, AUSTOWA) 


ALLG2) 
AL2(0) 


Corda’ 


AL1(255) 
ALL(4). 
AL2(0} 
A(0) 


1-0 OPERATION 


pc 
oc 
oc 
ot 
DS 


DS 


oc 
oc 
oc 


poe, 
-pror 


oh Teh 
beoe 


AREA 
PARAHETERS FOR 


ROUTINE — GROUP 2 
BASE ROUTINE 


NOTE -- THIS AREA OF CONSTANTS HUST FOLLOW 
REQUISITE BASE ROUTINES AND PRECEDE 
‘GROUP 2 MODULES 


. PSW PATTERNS ~~ ON DOUBLE WORD BOUNDARTES 


ALIGN TO DOUBLE WORD 
ALL ENABLED 


WATT == MACH CHK ENB 


RETURN TO ANALYZER 


~. CHNS DISABLED - 


EXTERN ENABLED 
WAIT ~ MACH CHK OLSABLED 


CONDITION SOURCE 
IDENTITY 


ALL CHNS ENABLED 
Mach CHK ENABLED 


RETURN ADDR AREA 


CONTROL CONSTANTS — 


AREA TO HOLD 


PARAMETERS FOR 


CURRENT CALL 
TO HOLO CALL 


RESERVE OPERATION 


1F 


OF. 
AL2(0} 
- ALLO) 


AL1(0) 


_ CONSTANTS ON 


oS 


oc 
oC 


oc. 


oc 


ps 


oc 
oc 


OC. 


oc 
oc 


oc 


oC 


ee - 
oc 


ee 
DS 


ALE 
| ACSBSAD) 
Cc? ‘ 
 fege. 
Feoe 
T-G BASE 


[-0 


CONSTANTS ON 


OH 

AL2(0) 
AL410) 
AL2(0) 
AL2(0) 


-AL200) 


AL2(0) 
AL4(0) 


RANDOM 


AL1(0) 


ALCO) 
ALL(255)— 
OH 


SAVE AREA FOR REG 15 
SAVE AREA. FOR REGS 
WAIT SWITCH 

ROUTINE CONTROL FLAGS: 


SINGLE WORD BOUNDARIFS | 


. SAVE AREA FOR INTN CALL 


I~O ROUTINE BASF ADDR 

1 WORD OF BLANKS FOR 
SPACING 

UNTT ADDRESS INSERT 

O° MODIFIERS INSERT 


ROUTINE - GROUP ? 
BASE ROUTINE 
CONSTANTS 
CONTINUEO = 


HALF HORD BOUNDARIES 

ALIGN TO HALF WORD 
STORAGE AREA FOR 
6 SENSE BYTES 

INTERNAL CALL SWITCH. 

“SPACE CLEANER CNT 

RETRY COUNT. 

ELG RETRY COUNT 

ZEROS CHECK PATTERN 


LENGTH CONSTANTS 


AREA TO SAVE FLAGS 
DISABLF ALL CHNS =~: 
DISABLE EXTERNGL 
ENABLE ALL CHANNELS AND 
EXTERNAL. 3 
ALIGN TO HALF woRD ™ s 


ALOR1877 
ALDR1878 
ALOR1879 
ALOR18RO 
ALDR1881 
ALDORLBA2 
ALDR1 883 
ALOR1884 
ALOR1885 
ALOR1886 
ALDR1 887 
ALOR1888 
ALDRIBAD 
ALNR1890 
ALORL891 
ALOR1L892 
ALDR1893 
ALDR 1894 
ALDR1895 
ALDR1I 896 
ALOR1R97 
ALDRL898 
ALOR1899 
ALNR 1900 
ALDRIIOL 


—ALORL902 


ALOR1903 
ALDR19N4 
ALOR 1905 
ALDR19NG 
ALDR1907 
ALOR1908 
ALDRLONG 
ALORLOLO 
ALDR1911 
ALOR1912 
ALDR1913 
ALDRLO1G 
ALORI915 
ALDR1916 
ALORI91L7 
ALDR1918 
ALOR1919 
ALDR1929 
ALDR1921 
ALDRL922 


~ALOR1923 


ALOR 1924 
ALNR1925 
ALOR1926 
ALDOR 1927 


ALNR1929 
ALNR1930 
ALDR1941 
ALD 1927 
ALOR1933 
ALR 1936 
ALNR1935 
ALNRI94A 
ALNR1937 
ALNR1938 
ALOR 1939 
ALDR1949 
ALN8 1941 
ALDRE94? 
ALDR1944 
ALDR1946 
ALDR 1945 
ALNR 1944 
ALDR1947 
ALOR1948 


» . ALDR 1949 
- ALNR 19549 


ALOR195] 
ALNR1952 
ALOR1953 
ALNR1984 


ALDNR1955 


O0000F 


‘000000 
000001 
000002 
000003 

000004 


000006 
000007 
000008 
QOOOOF 


000008 


000002 
OOOOFD 
000001 
000004 
OOOOFA 
000020 


'000014 


‘000004 
000003 
000009 

000002 


OooolF 


000027. 


000008 


000040. 


000037 | 


000087 


OOLFSE 


OOLES6O | 


OO1LE6O 
OO1LE&O 


OOLESO > 


OOLFSE 
OOLFSE 
OO1LF62 


OOLFSS . 


OOLF6A 
OOLFSE 


OOLFT72 
OO1F 74 


OOLF76 


OOLFIC 
OO1FB0 
001F 84 


4? 
47 
50 


54 
96 


47 


48 
12 
47 
40 
48 


47 


FO 


FO 


30 
30 
40 


FO 


80 
&8 


80 


86 
T6& 


FO 


F 
F 
F 
e 
F 
F 
FE 
F 
0 
0 


- 
-OOOOFFFF 


‘OOL7AB 


106 


—TEG. 


788: 


TFC 
782 


60c 
788 


: IFS 


002 
002 


OFC . 


RRR OHERHEHREHHREHERHER HDHD 


“SCHGUIL 


* 
. SCRN 


SBSRG EQU 
* 
SREGR EQU 
SREGZ QU 
SREGA EQU 
SREGN EQU 
SREGL EQU 
*SREGE EQU 
SLUBRG EQU 
SUREG EQU 
SREGM EQU 
SRGF EQU- 
SRGL EQU 
* . 
* 
* 
% 
SWATF EQU 
SWATFO EQU 
SbSYF EQU 
SREWF EQU 
SBSYFO EQU 
STLIF EQU 
*SILIFO EQU 
*SOCHF EQU 
SHOLD EQU 
*& 
*SKPOP EQU 
SNSOP EQU ~ 
SCTLOP EQU 
SWRRT EQU 
SRD EQU 
-*SPU-_EQU 
- #*SWR = EQU 
—*STRW EQU 
STM EQU 
STBS  EQU 
STTRY  EQU | 
STINT EQU 
*STMCH EQU - 
*STBF EQU 
STFSR EQU 
*STFSF EQU 
*5BRD EQU 
SERS  EQU 


| NOTE == 


NOTE -~ 


EQU 
ORG 
BC 


SCHGU 


‘ORG | 


BC 


sT 

N 

Ol 
* . 

ac 
* 
LH 
LTR 
ac 
- STH 
LH 


BC 
oc 


ORG 


‘I-0 BASE ROUTINE — GROUP 2 


~- 
wi 


I-O BASE ROUTINE 
REGISTER ASSIGNMENT. 

1-0 ROUTINE BASE REG 
I-O CALL LINK REG 

1-0 CALL ENTRY REG 
1-0 CALL DATA LOC 

1-0 CALL DATA CT 

I-O0 CALL U E RETURN 
1-0 CALL ERROR RETURN 
‘LOC OF UNIT ADDRESS 


OmON aus WN mw OS 


183 


CURRENT I-O UNIT AODR 
UTILITY WORK REGISTER 
FIRST REGISTER TO SAVE 
LAST REGISTER TQ SAVE 


EQUIVALENTS 


WAIT FLAG 

MASK OUT WAIT FLAG 
BUSY FLAG 

REWIND FLAG 

MASK OUT BUSY-REWIND 
SUPPRESS ILI FLAG 
MASK OUT SILI 

DATA CHAIN FLAG 
STORAGE AREA ASSIGNED 
TO HOLO ENTRY BASE REG 
PRINTER SKIP-TO-1 OP 
SENSF COMMAND 

CONTROL COMMAND 

WRITE AND SPACE OP 
READ COMMAND OP 

PUNCH COMMAND OP 
WRITE COMMAND OP' 
REWIND COMMAND f)P 
WRITE TAPE MARK OP 
BACKSPACF RECNRN NP 
DATA CHK os 
INTERVENTION REQUIRED 
EQUIPMENT CHK 
BACKSPACE FILE OP 
FORWARD SPACE REC OP 
FORWARD SPACE FILE OP 
BACKWARD RFAD OP 

TAPE UNIT CHK ERRORS 


1-0 BASE ROUTINE = GROUP 2 


ROUTINE 


MULTIPLE UNIT ADDRESS-DFVIC® ROUTINE 


AOJUST UNIT ADDRESS WITH CALL FNTRY DATA 


NOTE ~~ REQUIRES PRESENCE NF I-C AASE 


THIS ROUTINE MUST BE INCLUNEN FOR 
USE OF ANY CLASS CF DEVICE -— EsGe» 
TAPE -- FOR WHICH THE UNIT ADDRESS 


MAY VARY FROM CALL TO CALL. 
NEW UNIT ADDRESS IS TO BF FOUND 


THE 
IN 


THE UPPER HALF CF REGISTER SRFEGN 
AND ANY SUCH HIGH ORDER BITS WILL 
BE INTERPRETED AS A REPLACEMENT 


“UNIT ADDRESS. 


ZERO HIGH CRCER 


CAUSES RETENTION OF THE INCUMBENT 
DEVICE ADDRESS 


AFTER THE SET UP OF A NEW UNTT 
ANY INTERRUPT CAUSED BY 


ADDRESS, 


ANY OTHER UNIT ADDRESS NF THE 
SAME CLASS ITS DISREGARDED AS 


FRRELEVANT 


USING S8SAD,SBSRG 


* DEFINE CURRENT IC 

SSAVRX 

15, SCHGU SET UP ENTRY 

SIGOL 

15 SCHGUIL - SET UP ENTRY 

SCHGU RESTORE CURRENT IC 

SREGN»SUNAD SAVE UNIT ADORESS 

SREGNy SCRN CLEAR TO BYTE CT 

SWICH, 64 SET INTERNAL FLAG 

-- REPLACED INST 

15_SSAVRX#+4 RETURN 

SREGH, SUNAD L ENTRY UNIT ADOR- 

SREGM, SREGM CHK IF IS ANY 

By %48 BRANCH IF NONE 

SREGM,2USLUBRG) SAVE NEW UNTT ADDR 

SUREG, 2(SLU8RG) SET UP CURRENT 1-0 
- —~ REPLACED INST 

15,SIGOL+4 RETURN 

AL65535) © MASK FOR DATA BYTE 


COUNT 


ALDR1957 
ALDR1958 
ALDR1959 
ALDR1960 
ALOR1961 
ALOR1962 
ALDR1963 
ALDR1964 
ALDR1965 
ALDR1966 
ALDR1967 
ALDR1968 
ALOR1969 
ALDR1970 
ALDR1LO71 
ALDR1972 
ALDR1973 
ALDR1974 
ALOR1L975 
ALDR1976 
ALDR1977 
ALNR1978 
ALDR1979 
ALDRLOAN 
ALDR1981 
ALDR1982 
ALDR1983 
ALDR1984 
ALDR1985 
ALDR1986 
ALDR1987 
ALOR1988 
ALDR1989 
ALORI99N 
ALDR1901 


ALOR1992 » 


ALOR1993 


ALDR1994 © 


ALOR1I995 
ALDR1996 
ALDR1997 
ALNR1998 
ALOR1999 
ALNR 2000 
ALOR ?2001 
ALDR 2002 
ALAR2003 


ALNRINNG - 


ALAR 2005 
ALOR 2006 


ALNR 2008 
ALN 20n9 


~ALDR ANN 


ALMR2011 
ALOR 2017 
ALOR A013 
ALDROV1G 
ALNRANLS 
ALN® 2916 
ALNR?2NL7 
ALOR 2018 


ALNQAATD | 


ALAR ONAN 
ALNR2NA1 


ALOR 2027 


ALNR2073 
ALNR 2074 
ALNR 2026 
ALOR2976 
ALDR 2027. 
ALOR2028 


ALOR2029 | 


ALDR2039 
ALOR 2031 
ALOR 2047 
ALNR 20334 
ALNR 2036 
ALNR20345 


‘ALOR 2036 


ALOR2037 


ALNR2N38 © 


ALOR 2039 


ALOR 2040 - 


ALNR2041 
ALDR 2047 
ALNR 243 


ALNR2N44. 


ALDR2045 
ALDR 2046 
ALIR2047 
ALOR2068 


ALNR2049 | 


ALDR?059 
ALOR2051 
ALDR2052 
ALOR 2053 
ALNR 2054 
ALONR2055 
ALNR 2056 


ALOR 2057 


. 


OO1F88 
001E64 
OOLE64 
OO1LE84 
OOLE84S 
001F88 


001F88 
OO1LF8C 
OO1LF9O0 
001F94 
OOLF9A 


OOLFSE 


OO1FAS 


OO1FAS 
OOLFAC 


OOLFBO 


OOLE6A 


OOLEGA 


~ OOLECO 

OOLECO 
' OOLECL 
OOLEC2 
OO1LEC4S 


OO1LECS 


OOLEC9 
OOLECA 
OOLECC 
OOLEDO 
OOLEDS 


OOLFOC | 


OOLFOC 
OOLFiI2 
001F18 


OOLFIC 


OO1F22. 


OOlF28 
OOLF2E 


OO1LF80 


47 


47 


50 
94 


$4 


02 
47 
D6 


94 


47 
00 


47 


00 
00 
00 
00 
00 
00 
00 
00 
90 
D5 


D2 
02 
44 


02 
02 


p2 
47 


FO F 800 


FO F 
78c 


78C 
824 


20 
F8 
20 
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COMMAND OPERATION MODIFIERS ROUTINE 
NOTE ~= REQUIRES PRESENCE OF I-0 BASE 
ROUTINE 
NOTE ~=- THIS ROUTINE MUST BE INCLUDED FOR 
USE OF ANY COHMAND OP HODIFIERS. 
MODIFIER BIT PATTERN IS SUPPLIED BY 
THE USER IN THE HIGH ORDER BYTE OF 
REGISTER SREGA. ANY SUCH HIGH 
ORDER BITS WILL BE INSERTED IN THE 
CCW FOR THE CURRENT CALL 
NOTE -- NO CHECK IS MADE FOR THE VALIDITY 
OR APPLICABILITY OF ANY SUCH MODI- 
FIER BITS FOUND IN SREGA. ANY 
FUTURE ACTION OR CORRECTIVE HEASURE 
FOR CONDITIONS PRODUCED BY THESE 
USER SUPPLIED MODIFIERS MAY NOT 
EXIST IN THIS I-O PACKAGE 
NOTE -— THIS ROUTINE MUST NOT PRECEDE THE 
SIOGO ROUTINE IN SYMBOLIC FORM 
SET UP COMMAND OP MODIFIERS 
WITH CALL ENTRY DATA 
USING SBSAD»SBSRG 
SMOOF EQU) * DEFINE CURRENT IC 
ORG SSAVRY 
BC 15,SNODF ' SET UP ENTRY 
ORG S$IGD2 
BC 159 SHODFL SET UP ENTRY 
ORG SMOOF 
¢ ; 
ST  ° SREGA,SHODS SAVE MODIFIERS 
- NI SHODS,248 EXCLUDE OP CODE 
N SREGA,»SCRNL MASK OUT MODIFIERS 
MVC = STRCT(2)9SZROS' RESET RETRY COUNT 
* . -- REPLACED INST 
BC —--:- 15, SSAVRY#6 RETURN 
.* . 
SMODFL OC SCCWE1L)eSMODS SET MODIFIERS IN 
* CCW OP 
_ NI O(SLUBRG),SWATFO CLEAR WAIT-NON- 
* WAIT FLAG 
* ee ‘=~ REPLACED INST 
BC 159SIGO2+4 RETURN 
ry 
SCRNL OC F*16777215° MASK FOR DATA ADOR 
* I~O BASE ROUTINE - GROUP 2 
* I-O BASE ROUTINE 
* 
* INITIAL NEW PSW SET UP RNUTINE 
‘ 
* NOTE -~ THIS ROUTINE IS ACTIVATED THROUGH 
* THE FIRST ENTRANCE TO THE [-O BASE 
* ROUTINE. IT IS LOCATED IN TEMPO- 
* RARY STORAGE SPACE IN THE CONSTANT 
2 AREA AND CAN BE DESTROYED AT THE 
* CONCLUSION NF ITS FUNCTION 
* 
* NOTE -—= THIS ROUTINE REQUIRES NO STORAGE 
* SPACE SINCE IT 1S WHOLLY CONTAINED 
* IN SPACE SUBSEQUENTLY EMPLOYED 
*. ? 
DROP SREG2 
USING SBSAD,SB8SRG 
SORG EQU”) «& — OEFINE CURRENT IC 
“ ORG = S§SAVR1 
. AC. 15ySPSW SET UP ENTRY 
a 
* INITIAL PSW SET UP CONSTANTS 
¢€ ; ; 
ORG SMODL 
SPSWK OC AL1(0) EXTERNAL 
- pC ALLO) INTERRUPT 
pc AL2(0) NEW 
oc A(SXTRN) PSW 
oc ALLO) 1-0 
. OC ALI(O) INTERRUPT 
DC AL2(0) NEW 
oc ACSNTPIN) PSW 
STM SREGAeSREGN»SCCH INITIALIZE CCW 
—CcLc SWADE(2),SZROS CHK IF WAIT SWT ON 
g 
* ROUTINE 
2 
ORG SSVRB 
SPSWH MYC 8818) ¢SPSUK SET EXTRNL NEW PSW 
MVC 12008) ,¢SPSWK*+8 SET I-O0 NEW PSH 
—Xx OsSIOH+4 SET MACH CHK NEW 
* PSW IF HACH CHK 
* ROUTINE OVERLOAD 
2 IS PRESENT 
AVC SSAVRL (4) ¢SPSHK*+16 REPLACE ENTRY 
HVC STQH4+4(6),SPSUK*20 REPLACE HACH 
* CHK PS OSET UP 
MVG SRESR#612),SZROS CLEAR RESERVE SHWT 
Bc 15+SSAVRI RETURN YO SAVE ROU 
ORG SORG RESTORE CURRENT IC 
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SUPPORT 
PACKAGE 


PROGRAM NUMBER 
360P - UT - 018 


VERSION 2 LEVEL 1 


THE INTERNAL IBM NAME ASSIGNED 
TO THIS PROGRAM IS 
IBFBIOG 


COMPLETE PACKAGE 
FOR 
CARD ANC TAPE OPERATION. 


TRE CPERATION OF THIS PROGRAM DEPENDS UPON 
AN INTERNAL REPRESENTATION GF THE EXTERNAL 
CHARACTER SET WHICH IS EQUIVALENT TO THE 

CNE USED AT ASSEMBLY TIME. THE CODING HAS 
BEEN ARRANGED SO THAT REDEFINITION OF THE 

CONSTANTS,» BY REASSEMBLY, WILL RESULT IN 
A CORRECT PRCGRAM FOR THE NEW DEFINITIONS. 


THE INPUT/OUTPUT SUPPORT PACKAGE 
CONSISTS OF A SET OF SUBROUTINE 

MOOULES WHICH ENABLE THE USER TO 
UTILIZE THE INPUT/OUTPUT DEVICES. 


1OST START 1200 


*#nne eee ue Ree FEHR EREHKHHRHREHT HAE HO HRHREHRHEHRHERHAHREKRHRHEA HHH EE 


ENTRY SINTRY 


ENTRY SNTRY2 
ENTRY SNSA 
* Yt 
bd : 
SBSAD EQU * DEFINE BASE ADDRESS 
* ; FOR I-00 ROUTINES 


I-0 CALL ENTRY GROUP 


PRIMARY CALL ENTRY TABLE 


NOTE -— FOR CALL TO ONE SELECTED PRIMARY 
FUNCTION OF THE INDICATED DEVICE. 
EACH CALL UNIT BLOCK -~- 3 WORDS -~- 
IN THIS TABLE CONTAINS A POINTER TO 
THE ENTRY TO THE FUNCTION ACTION 
ROUTINE, THE DEVICE UNIT ADDRESS» 
AND AN EXCEPTIONAL CONDITION RETURN 
ADDRESS AS SUPPLIED OPTIONALLY BY 
THE USER IN SREGL. ANY OTHER 
FUNCTIONS OF THIS DEVICE WILL EXIST 
IN THE SECONDARY CALL ENTRY TABLE 
WHICH WILL REFER TO THE PRIMARY 
CALL TABLE TO OBTAIN ‘THE DEVICE 
UNIT ADORESS AND EXCEPTIONAL 
RETURN ADORESS 


NOTE —- EACH ENTRY AOORESS BELOW WHICH WILL 
: BE UTILIZED IN THE CURRENT ASSEMBLY 
REQUIRES THE PRESENCE OF ITS 
INOICATED ACTION ROUTINE 


NOTE — ALL ASSOCIATED ENTRY + EXTRN CARDS 
MAY BE OMITTED IF LINK I-O ROUTINES 
ARE ASSEHBLEO WITH USER PROGRAM 


NOTE ~~ SO THAT A SEPARATELY ASSEMBLED USER 
PROGRAM MAY ADDRESS THE SINTRY 
TABLE THROUGH THE USE OF A SINGLE 
EXTRN-ENTRY PAIR -—~ AND THE USE OF 
SINTRY-PLUS-INCREMENT ROTATION -~- 
THE FORMAT OF THE SINTRY TABLE 
SHOULD REMAIN FIXED. ONLY THE EX- 
JENT OF THE TABLE DOWN TO THE LAST 
ENTRY USED NEED BE INCLUDED, BUT A 
DUMMY 12 BYTE SPACE -- UNIT ADDRESS 
FFF -— MUST REPLACE ANY ENTRY BLOCK 
SPANNED BUT WITH NO REFERENCE AND 
WHOSE ACTION ROUTINE IS NOT PRESENT 


DEFINE ENTRY POINT 
TO TABLE ANO 
ALIGN TO OOUBLE 
WORD BOUNDARY 


SINTRY DS 00 
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B1010000 
BI010010 
81010020 
BI010030 
BI010040 
BI010050 
B1010060 
B1010070 
B1010080 
B1010090 
81010100 
BIO10110 
81010120 
81010130 
81010140 
BI010150 
B1010160 
81010170 
BI010180 
B1010190 
81010200 
B1010210 
B1010220 
B1010230 
B1010240 
BI010250 
B1010260 
B1010270 
B10102380 
81010290 
BI010300 
81010310 
B1010320 
81010330 
81010340 
B1010350 
B1010360 
B1010370 
BI1010380 


B1010390. 


81010400 
B1010410 
81010420 
B1010430 
BI010440 
BI010450 
B1010460 
B1010470 
81010480 
BI1010490 
B1010500 
B1010510 
81010520 
B1010530 
BI010540 


81010560 
BI1010570 
BI010580 
81010590 
81010600 
BI1010610 
BI1010620 
81010630 
81010640 
BI010650 
B1010660 
51010670 
BI010680 
81010690 
BrO0LO700 
BIO1L0710 
81010720 
BI010730 
BIO10740 
BIO1L10750 
BIOL07&60 
81010770 
81010780 
81010790 
81010800 
81010810 


81010820 . 


81010830 
B1010840 
BI010850 
81010860 
BI010870 
BI010860 
81010890 
BI0109G0 
BI010910 
BI010920 
81010930 
81010940 
81010950 
BI010960 
BI010970 
BIO10960 
81010990 
BI011000 
BI011010 
81011020 
81021030 
81011040 
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CGO4B4 


CCO4ECG 
COC4E4 
COC4BE 
CCO4bC 


GCC4CC 
CCO04C4 


CCO4TE 


CCO4CC 
CCO4eC 


cec4b4 


CCO4CE 


CCOSCC 


CCO4EC 
COCKE 4 
CCO4Es 


CCOSEC 


OCC4FC 


- COC4F4 


‘CCO4F4 


CCO4FE 


CCC4FEC 
cccsceé 
cCC5C4 
cccsce 


COCCFFFE 


COOCCFFF 
cCCCCcCcC 


CCCCFFFF 


CCCCCFFF 
cccccoco 


CCOCFFFF 


CCCOCFFF 
ccoccooo 


CCCCFFFF 
CCOCCFFF 


ccccccco 


 COOCFFFEF 


COOOCFFF 
ccocccco 


cccocccco 


CCGCFCCO 


CCOCFFFF 
CCCCFFFF 


CCCCKFFF 
CCCCFFFF 


- GCCCFFFF 


CCOCFFFF 
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SuTAB ECU 
* 
x 
CC 
SCROR oC 
CC 
* 
cc 
% 
STYPR CC 
oc 
x 
ec 
* 
SPRTR CC 
- GC 
Pe 
cc 
SPNCH CC 
Pd 
“ . 
cc 
cc 
* é 
STAP cc 
s . . 
ce 
: 
x 
~§DUKD CC 
cc 
* » 

-NCTE — 
NOTE -~ 
NCTE =~. 
ACTE =~ 

RTAY2 EQU 
oC 
_ oC 
* 
% 
% 
cc 
cc 
CC 
CG 
& i 
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;AdOD) 

1 OMRX, 
I-C CALL ENTRY GROUP BIC11960 
PRIMARY CALL ENTRY TABLE /BIOLLO79 
- CONTINUED - BIML10R0 
BIc11090 
| | BIOL1100 
SIRTRY*4 DEFINE 1ST OEVICE AINL1119 
ADDRESS LOC B1011120 
BIC11130 
A(65535) READ CARD AND WAIT 81011140 
A14095) CARD READER ADDR 81011150 
A(O) AREA FCR U E€ RET 81011160 
BIMLIL70 
A(65535) WRITE MESSAGE AND 81011180 
WAIT BIO1L1199 
A(4095) " -TYPRWRITER ADDRESS 81011200 
A(O) AREA FOR U E RET BIO11210 
BIC11220 
A(65535) PRINT A LINE AND 81711230 
WAIT 81011240 
A(4C95) PRINTER ADDRESS = 8111250 
A(O) AREA FOR U E RET 81011260 
BIC1L1270 
A(65535) PUNCH B1C11280 
A(4095) PUNCH ACDRESS -- 81011290 
OVERLOAD WITH = BIC.11300 
CORRECT ADDRESS 81011319 
A(O) AREA FOR U E RET 81011320 
NOTE -- THIS BIO11330 
UNIT BLOCK USED 81611340 
ONLY FOR PUNCH 81011350 
WHOSE UNIT ADDR 81011360 
DIFFERS FROM THE 81011370 
CARD READER B101138N 
| BIC11390 
A(65535) -—«.—s READ - TAPE RECORD BI011400 
| : AND WALT AIOLL410 
A(4095) TAPE ADOR ~~ OVERL 81011420 
a a FOR SINGLE TAPE BI011430 
ACO) . AREA FOR UE RET BIC11440 
; 81011450 
BI011460 
ACO) DUMMY ENTRY BIQ11470 
A(61440) " DUMHY ENTRY == BI011480 
TERMINATOR 81011490 
I-G CALL ENTRY GROUP 81020000 
BIf20010 
SECCNGARY CALL ENTRY TABLE 81020020 
| BIM20030 
FOR CALLS ASSOCIATED WITH A PRIMARY BI020040 
CALL RATHER THAN DIRECTLY LINKED — 81020050 
HITH AN I-O DEVICE. UNIT REFERENCES 81020060 
MUST BE MADE THROUGH THE PRIMARY = 81020070 
CALL B1N200R0 
: 81020090 
EACH ENTRY ADDRESS BELOW WHICH WILL BIM20100 
BE UTILIZED IN THE CURRENT ASSEMBLY BI020110 
REQUIRES THE PRESENCE OF ITS INOI- 81920120 
CATED ACTION ROUTINE 81020130 
: B1020140 
ALL ASSOCIATED ENTRY + EXTRN CARDS 81020150 
MAY BE CMITTED IF LINK I-O ROUTINE 81020160 
1S ASSEMBLED WITH USER PROGRAM BI020170 
81020180 
SO THAT A SEPARATELY ASSEMBLED USER 81020190 
PROGRAM MAY ADDRESS THE SNTRY2 81020200 
TABLE TRROUGH THE USE OF A SINGLE B1c20210 
EXTRN-ENTRY PAIR -- AND THE USE OF 681020220 
SNTRY2-PLUS~INCREMENT NOTATICN -- — B1C20230 
THE FORMAT CF THE SNTRY2° TABLE B1020240 
SHOULD REMAIN FIXEO. ONLY THE EX- 81020250 
TENT OF THE TABLE DOWN TC THE LAST 81020260 
ENTRY LSEC NEED BE INCLUDED, BUT A 81020270 
DUMMY 4 BYTE SPACE -- UNIT ADDRESS 61020280 
FFF ~- MUST REPLACE ANY ENTRY BLOCK BI020290 
SPANNED BUY WITH NO REFERENCE ANC 81020300 
WHOSE ACTION ROUTINE IS NOT PRESENT 81020310 
B1020320 
B1020330 
tes. DEFINE ENTRY POINT 81020340 
81020350 
ENTRY PRIMARY = “FUNCTICN BIC20360 
CALL B1020370 
B1020380 
Al65535) | SRCCW PUNCH(READER) 81020390 
A(65535) = ANY SENSE 6 BYTES 81020400 
~  ASSUKES SLUBRG 81020410 
CCKTAINS UNIT 81020420 
REFERENCE BI020430 
A(65535) SHMSW © TYPE 1 SPACE B1020440 
A(65535) SPRTW PRINT 1 SPACE 81020450 
A(65535) SPRTW PRINT SKIP = 1 81029460 
Al65535) SROCH  PUNCH{READER) 81020470 
ANO WALT BI020480 
- BI1020490 
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coosac ocoocrerr 
Q00510 OGOCFFFF 
000514 GOOCFEFF - 
000518 OOOOFFFF 
COO51C COOCEFESF 
0CO52C OOOCFFFF 
000524 OOOCFFFF 
0CG0528 OOCOCFFFF 
CCO52C OOOCFFFF. 
CcO53C OCOCFFFF 
000534 50 FO 0 O14 
000538 CS FO 
G0053A. 
GOO53A 58 FC F AAE 
000480 
Q00S3E 91 4C F &OA 
000542 47 10 F O40 
000546 90 F8 F AGO 
CO054A 02 G3 F AEO O O24 
. 9005S 41 ac F 004 
00554 48 7é 6 002 
000558 49 70 G G3A 
 900s5C 447 GO F 102 
- gcos60. 12:97 : 
CO0S62 47 4C F ICS 
000566 41 6&4 C COC 
G00SéA 47 FC F 0A4 
OCOS6E 020i 
000s70 C2 06 G G14 GC C14 


I-G CALL ENTRY GROUP 


SECGNCARY CALL ENTRY, TABLE 
~ CONTINUED - 
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SPUC 
SRTPW 


SRIPW 
SRTPW 
SRTPW 


SRTPW 
SRTPW 


SRTPW 
SRTPW 


ANY 


PUNCH AND WAIT 
WRITE TAPE REC 
AND WAIT 
REWIND TAPE 
WRITE TM-WAIT 
BKSP TAPE REC 
AND WAIT 
EKSP TAPE FILE 
FWD SPACE TAPE 
REC AND WAIT 
FWO SPACE FILE 
FILE 
BKHD READ TAPE 
REC — WAIT 
TISSUE CONTROL 
~~ ASSUMES 
SLUBRG HOLDS 
UNIT REFER~ 
ENCE 


1-0 BASE ROUTINE ~ GROUP 1 
I-O BASE ROUTINE 


I~C._ INTERRUPT ENTRY 


SBSRG,SHOLO 


SBSRG.O 


USING *,SSSRG 
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STH 
AVE. 
SNTPN2 LA 
s 
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CH 
¥ 
ec 
LTR 
% 
Bc 
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SBSRG,SBADR 


SAVE ENTRY BASE RG 


SET TEMPORARY BASE 


S8SAD,S8SRG 


SHICHs 64 
leSNTPN2 


SRGF ySRGL yy SSV4 
$$V4(04),SHOLD 
SLUBRG,SLTAB 


SUREG,2(SLUBRG) 
» SUREG?58 


Be SNTPA 


SUREG,SUREG 


4_SNTPIR 


SET UP I-O BASE RG 


CHK IF INT SWT ON 
BRANCH IF ON 


NOT ON ~ SAVE REGS 

SAVE ENTRY BASE 

L INITIAL UNIT 
TABLE LOCATION 

L UNIT ADDRESS 


CHK IF SAME AS 


INTERRUPT UNIT 


BRANCH IF SAME 


CHK IF MINUS FOR 
LIST EXHAUSTED 
BRANCH IF MINUS 


SLUBRG»IZ(SLUBRG) SET FOR NEXT 


1S—eSNTPN1 


x*0201°* 


UNIT 


GO TO CHECK NEXT 
UNIT ADDRESS 
(VL) - THIS CHAR 
MUST BE UPDATED 
WITH EACH CHANGE 
RELEASE 


SHOLD(1),SHOLD OUMMY INSTRUCTION 


OVERLOAD BY HVC 
TO CLEAR SENSE 
BYTE AREA IF IT 
EXISTS 


BI020510 
BI020520 
BI1020530 
BI020540 
BIN20550 
B1020560 
B1020570 
BIN20580 
81020590 
BI1C20600 
BI020610 
B1Q20620 
BI020630 
BIC20640 
81020550 
BI020660 
BI020670 
81020680 
81020690 
B1020700 
81020710 
BI020720 
BI020730 
BI020740 


BIO30000 
BI030010 
BI030020 
B1030030 
81030040 
B1030050 
B1030060 
BIlM30070 
81030080 
81030090 
B1030100 
BI030110 
81030120 
B1030130 
B1030140 
BIN30150 
81030160 
B1030170 
B1030180 
81030190 
81030200 
B1030210 
81030220 
B1030230 
BI1G30240 
81030250 
BI030260 
81030270 
BI1030280 
B1030290 
681030300 
81030310 
81030320 
B1030330 
81030340 
81030350 
B1030360 
81030370 
BI030380 
B1030390 
B103N400 
BIO30410 
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Cl-F ACE 
Fl 
CL 6 Q00 
Cl F #06 
70 F CCA 
10 F B4E 
70 F ICE 
Cl F B4E 
CO F 1C4 
1c 
Fl 
FC F 112 
FO F LLE 
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€7 © C38 
FE F AEC 
CC G 038. 
FO F 126 
¢C 7 GOC 
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3C F ZlE 
Fe G C44 
1 F Zié 
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Cz € GCC 
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ec F OER 
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Ie 
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1-0 BASE ROUTINE - GROUP 1 
I-0 BASE ROUTINE — 


SET LP RETURN 


LSING SBSAD,SBSRG 


ShAIT 
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SIM SREGRsSREGN,SRESR RESERVE CALL 
PARAMETERS 
LPSh SwAYT WAIT FOR 1-0 COM~ 
PLETION WITH I-0 
INTPTS ENABLED 
NI SWICHs127 CLEAR CCl FLAG 
CLC SRESR+6(2)_,SZROS CHK IF ANY 
RESERVE CALLS 
BC 8, SICh+4 BRANCH IF NOT 
LH SREGRySREGNySRESR RESTORE CALL 
PARAMETERS 
HVC SRESR*#6(2),SZ2ROS CLEAR RESERVE 
AREA 
BCR 15ySREGZ GO TC RESERVE CALL 
C1 O(SLUBRG),S8SYF SET UNIT BUSY FLAG 
CLC SHWADEC2)_SZROS CHK IF WAIT ST ON 
Bc TsSuAlT BRANCH IF YES 
CH SUREGy»SNTCL NO -— CHK IF IS 
INTERNAL CALL 
BC 7ySICh1 BRANCK IF NO 
HVC = SNTCUL 2) e¢SZROS YES ~— CLEAR INT 
CALL SWITCH 
PVC = 41D DUMMY MYC —= OVERL 
YO RESTORE SUNAD 
AND SHODS 
LA SREGZ,SREGR GO TO RETURN TO 
BCR 15,SREG2 INTERNAL CALL 
BC 15,444 DUHMY BC -— OVERL 
WITH 8C TO 
MESSAGE ROUTINE 
BC 15 _%44 DUMMY BC -— OVERL 
WITH BC TO 
ADJUST ROUTINE 
NI SWICH,191 CLEAR INTERNAL SWT 
HVC 56(8),_,SRTRN SET UP RETURN 
LH SRGFySRGL+SSV4 RESTORE REGISTERS 
LPSh 56 RETURN TO CALL 
I-O BASE ROUTINE ~ GROUP 1 
1-0 BASE ROUTINE 
INITIATE I-O ACTION 
BC 15,%44 DUHMHY BC —— OVERL 
WITH BC 15ySXTRIN 
TO EXTERNAL INTPT 
BASE ROUTINE 
TIG OC SUREG) CHK ERR DEV PATH 
BC 6,SIOIN BC IF PATH FREE 
BC 39SAGINL BC IF NOT CLEAR 
TH 68,251 CHK FOR D E ALONE 
BC 7,ySAGINL BC IF NOY LONE DO E 
HVC SRTIRN44(4) eSSVR SET UP RETURN 
1M OUSLUBRG),ySWATF CHK FOR WAIT CALL 
BC 8eSIONL BRANCH IF NO 
HVC SWADEC2),2(SLUBRG) SET UNIT ADDR 
IN HAIT SWITCH 
xc §6(16) 4,56 CLEAR 1-0 OLD PSwW 
AND CSH -— MINIMAL 
ROUTINE - OVERL 
WITH 8C TO PSH 
SET UP ROUTINE 
NIL. SHICH,127 CLEAR CC 1 FLAG 
“S10 = OL SUREG) ISSUE SIO TO UNIT 
ADDR SEY BY ENTRY 
ROUTINE 
BC 8, SI Ot CC O ~ INSTRUCTION 
“ACCEPTED © 
BC 2eSHWAITI CC 2 -— PATH BUSY 
—- RESERVE OPN 
BINEHAL EXIT -=- 
OVERL WITH BC TO 
SPECIFIC ROUTINE 
FOR CC 2 
BVI 50,X'3F* NOT OPERATIONAL 
MVE SCHKL+#6,C°3* SET CC 3 IDENTITY 
BVI SCHK167,C°S* SET ACTION CODE IN 
ERROR PSY 
BC. 1,SAGINI CC 3 -- PATH NOT 
AVAILABLE © -- 
DVERL WITH BC TO 
SPECIFIC ROUTINE 
ee: FOR CC 3 
Gl O{SLUBRG),SBSYF SET UNIT BUSY FLAG 
Ol SHICHs128 ct 1 -- SEY CCl 


FLAG ON ~-~- GO TO 
INTERRGGATOR 
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B1030450 
B1030460 
B1030470 
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B1030490 
BI030500 
BI030510 
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SNTPCD 
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SATPHI 
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SNTPIR 
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SAGING 
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BC 
TM 
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1H 
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TH 
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TR 
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HVC 
KVI 
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IM 
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i} AdOD:! 
OURX ; 


1-0 BASE RUUTINE - GROUP 1 
I-C BASE ROUTINE 


INTERRCGATE I-G INTERRUPT OR 
CCNDITIGN CODE } 


69414 


Te SAGIAC 
69549 


7,SAGIN 
68+2 


. LySAGIAO 


68,1 
1,SAGIA 


1594+4 


68444 
8,SNTPN 
684 
8,SNTPKM 
SREGM,SNTPM 


CHK FOR 3CHANNEL 
ERRCR FAILURES 
GVERL WITH BC TO 
CHK FOR SENSE DEV 

BRANCH CN ANY -- 

CHK FOR 3 CHANNEL 
PROGRAM ERRORS 

BC TC ERRCR LOG 

CHK FCR UNIT CHECK 

BRANCH IF YES -- 
MINIMAL EXIT -- 
OVERL FOR EXIT TO 
SPECIFIC ROUTINE 

CHK FOR UNIT EXCEP 

BRANCH IF YES -- 
MINIMAL EXIT -- 
OVERL FOR EXIT TO 
SPECIFIC ROUTINE 

DUMMY BE -- OVERL 
WITH BC 15ySNTPXL 
FOR MINOR INTPT 
CONDITICNS ROUTN 

CHK FOR CUE-CE-DE 

BRANCH IF NONE 

CHK FOR OE 

BRANCH IF NO 

SET TO PROCEED 


OC SLUBRG),SBSYFO CLEAR BUSY FLAG 


202+ SLUBRG)»5 SWADE 


7, *+10 
SWADE(2),SZR0S 
15,SREGM 
SWICH,128 
ly>SIOQwA 


' SWICH,64 


8¢S10W3+10 
57y¥253 
15,SICR 


CHK IF INTPT 
UNIT 1S WAIT UNIT 
BRANCH IF NOT SAME 
CLEAR WAIT SWITCH 
CONTINUE 
CHK IF CC 1 BIT ON 
BRANCH IF ON 
CHK INTERNAL SWT 
BRANCH IF OFF 
CLEAR WAIT BIT IN 

I-D0 OLD PSW 


1-0 BASE ROUTINE ~ GRCUP 1 
I-Q BASE ROUTINE 


INTERRCGATE I-C INTERRUPT OR 
CCNDITION CODE 1 
~ CGNTINUED ~ 
68ei& CHK FOR BUSY 
1,SRAITL BRANCH IF BUSY TO 
TO RESERVE 
155 SAGIN 
- SEREP INTERFACE 
24(6),SNSA ’ MOVE: IN SENSE DATA 
50,X*1F* 1/0 DEVICE FAILURE 
15,%+8 
SOX" OF ®. 1/0 CHANNEL FAILUR 
SCHK1+7,C#S® SI DECISION CODE 
SCHK1,0 CISABLE EXTRN 
157*+8 CONTINUE LOG OUT - 
SCHK1+7,C#O* SET DECISION CODE 
IN ERROR PSW 
SCHK1¢6,CtLF SET CC 1 IDENITY 
IN ERROR PSW 
SwICH,12e CHK IF IS CC l 
1,*+8 BRANCH IF YES ~-- 
MINIBAL ROUTINE —- 
OVERL WITH BC TO 
SET CC 1 UNIT 
; IDENTITY ROUTINE 
SCHK146,C°O® SET INTPT IDENTITY 
IN ERROR PSW 
SwlCh,127 CLEAR CC 1 FLAG 
OVERL wITH BC TO 
SPECIFIC CC l 
ROUTINE 
SREGP,SATPRL CHK WAIT STATUS 
SCHK1 WALT TO CHECK 
CONDITIONS - OVER 
LOAD WITH BC TC 
WRITE OUT ERROR 
ROUTINE 
» END CF REQUISITE 


BASE ROUTINE 
GROUP 1 AREA 


B1031400 
BIN31410 
BIN31420 
B1N31430 
BIN31440 
R1931450 
R1031460 
BIC31470 
B1031490 
BIN31450 
31931500 
81031510 
81031520 
BI031530 
B1031540 
BIN31550 
B1031560 
BIC31570 
BIN31580 
B1031590 
BIC31600 
BI?31610 
BI031620 
B1G31639 
BI031640 
81031650 
B1031660 
BI031670 
B1031680 
BIT31690 
BIC31700 
BIC31710 
B1031720 
81031730 
BI1N31740 
BI031750 
B1031760 
81031770 
BIN31L780 
BIC31790 
B1031800 
BIC31810 
81031820 
81031830 
BI031840 
81031850 


B1031870 
81031880 
B1031890 
81031900 
81031910 
B1031920 
BI031930 
81031940 
B1031950 
81031960 
B1031970 
81031980 
B1D0319990 
B1032000 
81032010 
B1032020 
81032030 
81032040 
81032050 
81032060 
81032070 
81032080 
81032090 
81032100 
BrO32110 
B1Q32120 
B1032130 
BI1032149 
B1032150 
B1032160 
BI1O32170 
Bt032180 
61032190 
81032200 
B1032210. 
B1032220 
81032230 
BI032240 
B1N32250 
B1032260 
BIC32270 
61032280 
81032290 
B1032300 
81032310 
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[Sux | SELES ef 
Men ae wee ~ = 
* I-O BASE ROUTINE — GROUP 1 BIO3A000 
* WRITE ERROR MESSAGE BASE ROUTINE BIQ3A010 
* BI03A020 
* BI03A030 
& NOTE —— HHEN PRESENT, THIS ROUTINE MUST BIN3AN4O 
e IMMEDIATELY FOLLOW BASE ROUTINE BIO3A050 
% GROUP 1 REQUISITE AREA —- BIO3A060 
” LCC SRCND BIO3A070O 
% BI03A080 
*  NGTE ~— REQUIRES PRESENCE OF I-O BASE BIO03A090 
s ROUTINE BIO3A100 
% BIOZALLO 
* NOTE -— REQUIRES PRESENCE OF INTERNAL CALL 81034120 
* ' ENTRY ROUTINE BIN3A130 
* BIO03A140 
*® NOTE ——- REQUIRES PRESENCE OF WRITE MESSAGE 8103A150 
* ENTRY ROUTINE BIN3A160 
a B103A170 
*® NOTE ~~ REQUIRES PRESENCE OF CC 1 UNIT BIO3A1L80 
* IDENTITY CISPLAY ROUTINE B103A190 
* BI03A200 
* BIO3A210 
GOO6E2 CRG SRQND B103A220 
Q006E2 SIND -EQU) * DEFINE CURRENT IC BIN3A230 
OOOSDE ORG SAGINWt4 BIO3A240 
GOO6DE 47 FC F 232. BC 15,SIND SET UP ENTRY 8103A250 
QCOSE2 ORG SIND B1034260 
a BIOQ3A270 
GCO6E2 47 FG F 236 SIND. BC 152%*+4 OUMHY BC -- OVERL 81034280 
* WITH BAL TO GO TO B103A290 
* SENSE ERROR UNIT 81N3A300 
OCOO6E6 C2 05 F 280 F B49 SINOZ2 HVC SNSAV(6) ySNSA RESERVE SENSE BITS BI03A310 
COOéEC 48 86 C O3A LH SREGNy 58 L INTERRUPT DEVICE B103A320 
_  e te f ADORESS BI03A330 
OCOéFC 54 &C F 27C N SREGH, SNCHMSK DROP OUT ANY FLAGS 8103A340 
7 oe INSERTED BI03A350 
COOGF4 45 80 F C12  } 3 © CH SREGM,STYPR+2 CHK IF ERROR UNIT B103A360 
we x 1S MESSAGE UNIT BI03A370 
OCOEFS 47 8C F 276 © . 8 BC 8,SINOW BC IF MESSAGE UNIT 81034380 
* ‘  B103A390 
* - BI03A400 
% ISSUE ERROR HESSAGE CALL BIO3A410 
a % BIO3A420 
QOOGFE 44 CO F 366 EX Oy SNTCL SAVE REGISTERS BI03A430 
Coo70g 41 10 F VEE. LA SREGZ »SHHSH SEY HESSAGE ENTRY BI03A440 
Go07C4s 41 20 F ABS LA SREGAy SCHK145 SET OATA BYTE LOC 8103A450 
coo7cs 41 30 ¢ C03 LA SREGNy3 SEY DATA BYTE CT BIO03A460 
cooz70c 41 60 F O10 LA SLUBRG,STYPR SET INT CALL UNIT 81034470 
000710 45 CG F 3EA BAL SREGR»SNTCAL GO 10 ISSUE WRITE BI03A480 
% 1-0 BASE ROUTINE — GROUP 1 BI03A500 
s WRITE ERROR KESSAGE BASE ROUTINE BIO3A510 
& - CONTINUED ~ 8103A520 
+ B103A530 
% B103A540 
% RESTCRE AND BAIT B103A550 
% BI03A560 
000714 4 OO F 404 SIND3. EX Oe SNTCLA RESTCRE REGISTERS 81034570 
% OVERL WITH BC TO BI03A580 
oe CONTINUE MESSAGE 81034590 
OQOO718 44 00 F 40E EX Oy»SNTCLB RESTORE I-O OLD PS BI03A600 
QCo71C 44 OC F 414 EX Os SNTCLC RESTCRE ERROR CCW BIO3A610 
000720 O2 05 F B4G F 280: SIND4S HVC SNSAL6)ySNSAV RESTORE SENSE BITS BION3A620 
COOI2S 82 GC F ABC SINCh LPSW SCHKL WAIT TO CHECK B103A630 
: 3 CONDITIONS 81034640 
| BIN3A650 
Goo72C DS OF ALIGN TO FULL WORD 681034660 
Q00IZC CCOOCTEF SNOMSK OC X*QOQO007FF* MASK TO EXTRACT BIO3A670 
* : DEVICE ADDRESS BIC3A6Aa0 
ccoz30 Occc SNSAV CC ° 3H*O® SAVE SENSE AREA BI03A690 
000732 coaac 
oo0c 
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I-0 BASE ROUTINE ~ GROUP 1 


WRITE ERROR 


ROUTINE 


EXPANSION 1 


NCTE —— REQUIRES PRESENCE OF WRITE ERROR 


MESSAGE BASE ROUTINE 


NCTE ~— REQUIRES PRESENCE OF BINARY-TO=HEX 


_ CONVERSION ROUTINE 


USING SBSAD,SBSRG 


EQU 
CRG 
BC 
ORG 
EX 
ST 
LA 
LA 


LA 
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BALA 
LA 
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BALR 
LA 
La 
LA 


LA 
BAL 


EX 
BC 
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SIND3 
1S5¢SINDA 
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Oy SNTCLB 
SREGP»ySRGPS 
SREGCe8 
SREGS»56 


SREGPy SINDM#+16 
SREGZe SBNXAD 


SREGR,SREGZ 
SREGC,S 
SREGS3&4 


SREGP,SINDK+40 
SREGZs SENXAD 


SREGR» SREGZ 
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SREGAs SINDM 
SREG2Z 9 SWHSW 


SLUBRG»STYPR 
SREGR» SNTCAL #12 


SREGP y SRGPS 


OvSNTCLA 


‘15_,SIND344 


DEFINE CURRENT IC 


SET UP ENTRY 


RESTORE CURRENT IC 


RESTORE I-O0 OLD PS 


SAVE EXTRA REG 


SET NUMBER OF BYTE 


CONVERSIONS 
SET SOURCE LOC TO 
I~O OLD PSW 
SET IMAGE LOC 
SET ENTRY TO CON 
VERSION ROUTINE 
GO TO CONVERT 


SET NUMBER OF BYTE 


CONVERSIONS 

SET SOURCE LOC TO 
CSH 

SET IHAGE LOC 

SET ENTRY TO CON- 
VERSION ROUTINE 

GO TO CONVERT 


SET DATA BYTE CT 
SET DATA BYTE LOC 
SET WRITE MESSAGE 
ENTRY 

SET INT CALL UNIT 


GO TO ISSUE WRITE 
RESTORE REGISTER — 


OVERL WITH BC TO 
EXPANSION 2 
RESTORE REGISTERS 
-o~ REPLACED INST 


RETURN 


I-O BASE ROUTINE — GROUP 1 


HRITE ERROR 


ROUTINE 


EXPANSION 1. 
~ CONTINUED - 
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oo md OF 


WORK REGISTER 

COUNT OF BYTES TO 
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BIN-TO-HEX CONVERT 
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I-O BASE RGLTINE ~ GROUP 1 
WRITE ERROR ROUTINE 
EXPANSION 2 


NCTE -~ REQUIRES PRESENCE GF WRITE ERROR 
MESSAGE ROUTINE ~ EXPANSION 1 


NCTE —= REQUIRES PRESENCE OF WRITE ERROR 
MESSAGE ROUTINE —- EXPANSION 3 


NCTE —~ REQUIRES PRESENCE OF INTERNAL UNIT 
SENSE KCUTINE 


Heeeeeeere etceee et 


USING SBSAD,SBSRG 
SINCB EQU o 
CRG SINDL 
BAL SREGH,SENS 
ORG SINDAL 
Bc 15,SINCB 


DEFINE CURRENT IC 
GO TC SENSE 


SET UP ENTRY 


— CRG SINDB RESTORE CURRENT IC 
% 
LA SREGC 6 SET NUMBER OF BYTE 
% CONVERSIONS 
LA SREGS»SNSAV SET SOURCE LCC TO 
% . SENSE AREA 
LA SREGPs»SINOH2+10 SET IMAGE LOC - 
L SREGZ»s SBNXAD SET ENTRY TO CON- 
* VERSION ROUTINE 


BALR SREGReSREGZ GO TO CCNVERT 


LA SREGNy24 SET CATA BYTE CT . 
LA SREGA,sSINDOM2 SET DATA BYTE LOC 
LA SREGZySu¥SW SET WRITE MESSAGE 
* : ; ENTRY 
LA SLUBRG»STYPR SET INT CALL UNIT 
BAL SREGR,»SNTCAL+12 GO TO ISSUE WRITE 


3 
L — SREGP, SRGPS RESTCRE REGISTER 
‘% ~~ REPLACED INST 
BC —s- 15 eSINDA1L+4 RETURN 
2 
SINEM2 CC c* * SENSE 000000! 
cc c'coooco ° 
Fy 
2 I-O BASE ROUTINE -— GROUP 1 
¥ BINARY<TG-HEX CCAVERSION INTO IMAGE RCUTINE 
& 
2 . ‘ 
a NCTE —— SREGR IS CESTROYED BY RETURN 
S 
* NCTE ~-= REQUIRES THE FOLLCWING PARAMETERS 
* IN REGISTERS 
* 1 ~- NUMBER OF BYTES YO BE 
% CCNVERTED IN SREGC 
% 2 —-- ADDRESS OF FIRST BYTE OF 
* SOURCE IN SREGS 
x 3 -- ADDRESS CF FIRST BYTE OF 
% IMAGE IN SREGP 
e & -- ENTRY REGISTER IS SREGZ 
ye 5.——- LINK REGISTER IS SREGR 
3 
s ; 
SSBNx ST SREGD» SBAXYV SAVE. REGISTER 
NVC SFLOX¢1(1) ,0USREGS) GET BYTE TO 
CONVERT 
Lh SREGHy SFLOX L BYTE IN WORK REG 
SRL SREGH 4 EXTRACT HIGH ORDER 
Ic SREGDySHEXP(SREGW). HOVE PROPER 
$TC SREGD,0( SREGP) REX TO IMAGE 
LA SREGP,1(SREGP) INCREMENT IMAGE 
% . _ + ADORESS BY 1 
“LH SREGW, SFLOX L BYTE IN HORK REG 
N SREGH » SHSKHX EXTRACT LOW CROER 
Ic SREGO,SHEXP(SREGH) MOVE PROPER 
STC SREGD,OUSREGP) HEX TO IMAGE 
LA SREGP,LISREGP} INCREMENT IMAGE 
a . ADDRESS BY 1 
“LA SREGS,z1(SREGS) INCREMENT SOURCE 
* ADDRESS BY 1 
act SREGC ,SSBNX+*4 BRANCH IF MORE 
™ BYTES TO DO 
% f 
L SREGD, SBNXV RESTCRE REGISTER 
LR SREGZ,SREGR SET UP RETURN 
BCR = 15y9S5REGZ RETURN 
s 
xz 
SHSKHX CC. ACLS) «MASK TO RETAIN LOW 
% LOW ORDER & BITS 
SBNXV DC AO) _ SAVE AREA - SREGD 
SFLEx CC Htot WORD AREA 
SHEXP OC CTOLZ34567E9ABCOEF* HEX GRAPHIC 
* : ; PATTERNS 
% 


CHAR WORK REGISTER 
DEFINE ENTRY 


SREGO EQU 13 
S8AAK  EQU SSBNX 
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I-O0 BASE ROUTINE ~ GROUP 1} 


ROUTINE 


HINOR INTERRUPT CONDITONS BASE ROUTINE 
NOTE -— REQUIRES PRESENCE OF I-O BASE 


CHECK FOR INCORRECT LENGTH RECORD, 


PROGRAM CONTROL INTERRUPT 
AND-GR ATTENTION BITS 


USING SBSAD,SHSRG 


be) 

SNTPX 
15eSNTPX1 
SNTPX1 


15,444 
159%44 


15ySNTPX44 


DEFINE CURRENT IC 


SET UP ENTRY 
RESTORE CURRENT IC 


DUMHY BC 
WITH 8C 
FOR ILI 

DUMHY BC 
WETH BC 
FOR PCI 

DUMMY BC 
WITH BC 


-- OVERL 
15,SNTPOL 
ROUTINE 

—- OVERL 
15 9SNTPO2 
ROUTINE 

~~ OVERL 
15~/SNTPD3 


FOR ATTN ROUTINE 


I-O BASE ROUTINE - GROUP 1} 


INCORRECT LENGTH RECORD 


BASE ROUTINE 


TEST FOR ILI BIT 


USING SB8SAD,S8SRG 


% 

SHTPXL 
15eSNTPOL 
SNTPOL 


49» 64 
1, SAGIN 


15,SNTPX1+4 


INDICATION 


NOTE ~ REQUIRES PRESENCE OF MINOR INTERRUPT 
CONDITIONS BASE ROUTINE 


DEFINE CURRENT IC 


SET UP ENTRY 
RESTORE CURRENT IC 


CHK FOR ILI 
BRANCH IF YES -~- 
OVERL WITH BC TO 


MINIMAL 


EXIT -- 


SPECIFIC ROUTINE 


RETURN 


fe ee a tee Cm 


BIO3FO00 
BIO3FOLO 
BIO3FO020 
BI03F030 
BIO3F040 
BIO3F050 
BI1O3FO060 
BIO3FOTO 
BIO3FO80 
B8103F090 
BIO3F100 
BIO3F110 
BIO3F120 
BI03F130 
BIO3F140 
BIO3F150 
BIO3F160 
BIO3F170 
BI03F180 
8103F190 
BIO3F200 
BIO3F210 
BIO3F220 
BIO3F230 
BIO3F240 
BIO3F250 
BIO3F260 
BIO3F270 


B103G000 
BIQ3G010 
BI103G020 
BI03G030 
BID3G040 
B103G050 
B103G060 
B103G070 
B103G080 
B103G090 
81036100 
B103G110 
B103G120 
B103G6130 
BI03G140 
BI03G150 
B1036160 
BYQ3G170 
B103G180 
B103G6190 
81036200 
B103G210 
BI03G220 
BI103G230 
B103G240 
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I-O0 BASE RCUTINE ~ GROUP 1 
PROGRAM CONTRCL INTERRUPT BASE ROUTINE 


NOTE ~ REQUIRES PRESENCE OF MINOR INTERRUPT 


CCNDITICNS BASE ROUTINE 


TEST FOR PCI BIT 


USING SBSA0D,SBSRG 
EQU % 

CRG SNTPA2 

BC 15,SNTPD2 
CRG SNTPO2 


TH 694128 
BC 1ySAGIN 


BC L5eSNTPX2¢4 


DEFINE CURRENT IC 


SET UP ENTRY 


RESTORE CURRENT [IC 


CHK FOR PROGRAM 


BINMN3RQO00 


‘BIO3HO1LO 


8103HO20 
BIN3HO30 
BIN3HO40 
BIO3HO5O 
BIO3HO60 
BIC3HO70 
BI103HOSO 
BIT 3HOI0 
BI03H100 
BIO3H".10 
BI03H120 
8103h130 
BIP3H140 
B1034150 
BIOZH160 


CONTROL INTERRUPT BIQSHL7O 


BRANCH IF YES -= 
KENTMAL EXIT << 
OVERL WITH BC TO 
SPECIFIC ROUTINE 

RETURN 


1-0 BASE ROUTINE - GROUP 1 
ATTENTICGN BASE ROUTINE 


NCTE — REQUIRES PRESENCE OF HINOR INTERRUPT 


CGNOITIONS BASE ROUTINE. 


TEST FOR ATTENTION BIT 


USING $8SA0.S8SRG 
ECU % 

ORG SNTPX3 

6C L5,SNTPO3 
GRG SNTPD3 


TH 684128 
BC Le SAGIN 


ec 15, SNTPX94 


DEFINE CURRENT IC 


SET UP ENTRY; 
RESTORE CURRENT IC 


CHK FOR ATTENTION 
BRANCH IF YES <- 

MINIMAL EXIT <= 

OVERL WITH BC TO 
SPECIFIC ROUTINE 
RETURN 


BIC3H180 
BIG3H190 
BIN3H200 
BI03H210 
BYO3H220 


BI03J000 
BI03J010 
B103J020 
BI103J030 
81035040 
81035050 
B103 060 
BIO3J070 
B103J080 
B103J090 
BI03JN100 
BIC3J110 
681034120 
61035130 
BIC3I140 
810345150 
BI1C35160 
8103170 
810345180 
BI03J190 
B103 5200 
6103210 
81035220 
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* I-00 BASE ROUTINE - GROUP 1 
+ ISSUE INTERNAL CALL RCUTINE °- 
% 
% NCTE ~~ REQUIRES PRESENCE OF I-O BASE 
a RCUTINE is 
¥ . 
3 NCTE —= THIS ROLTINE IS REQUIRED BY ANY 
x ACTICN NECESSITATING THE ISSUANCE 
* CF AN I-O CALL WHILE WITHIN ANY OF 
* THE I1-G RCUTINES 
= ; 
* NCTE —= REQUIRES THAT SLUBRG COATAIN CALL 
4% DEVICE UNIT BLOCK ADDRESS AT TIME 
* OF ENTRY TCO YHIS ROUTINE 
% 
is 
* ISSLE INTERNAL CALL 
a 
SNTCL ECL * DEFINE CURRENT IC 
CRG STOWB 
MVC SUNAD(8),SNTCLK+36 RESTORE SUNAD 
* ; AND SMCDS 
CRG SNTCL RESTCRE CURRENT IC 
en 
SIP SRGFySRGL»SSVRB SAVE REGISTERS 
SNTCAL MVC) = SNTCLK420(16), S5MOOL SAVE 
2 CURRENT CCW 
MVC SNICLK (20),56 SAVE I-O OLD PSW 
* CSW AND CAW 
MVC SNTCU(2)+2¢SLUBRG) SET INT UNIT 
MVC SNTCLK436(8),;SUNAD RESERVE AND 
xc SUNAD(8}4SUNAD CLEAR SUNAD~SMODS 
BCR 15,SREGZ GO TO CALL ENTRY 
= . 
SNTCLA LM SRGFse SRGL,»SSVRB RESTCRE REGISTERS 
SNTCLB MVC 56(20),SNTCLK RESTCRE 1-0 OLD 
* PSW» CSW AND CAW 
SNICLC MVC SMOOLC16),SNTCLK+20 RESTORE 
+ SAVED CCW 
» 
* g . 
SATCLK GS 4H AREA FOR OLD PSW 
cs 4H AREA FoR CSW 
cs 2H AREA FCR CAW 
DS 4H AREA FOR 
cs 4H CURRENT CCW 
os 2H AREA FOR SUNAD 
cs 2H. AREA FOR SHODS 
a I-G BASE RCUTINE ~ GROUP 1 
* INTERNAL UNIT SENSE ROUTINE 
a 
e 
* NCTE ~~ REQUIRES PRESENCE OF I-C BASE 
% ROUTINE 
* 
% NCTE -— REQUIRES PRESENCE OF SENSE ENTRY 
ey RQUTINE 
* 
* . NAGTE —= REQUIRES PRESENCE OF INTERNAL CALL 
s ROUTINE IAN I-0 BASE ROUTINE GROUP 
ae 
* NGTE -=~ REQUIRES THAT SLUBRG CONTAIN SENSE 
* DEVICE UNIT BLOCK AODRESS AT TIME 
x GF ENTRY TG TRIS ROUTINE 
ji 
a NOTE —— SENSE IAFCRHATICN ~~ 6 BYTES -- IS 
* CONTAINEC IN SYMBOLIC AREA SNSA 
% , : . 
~ USING S8SAD,SBSRG 
‘ 
SENS EX Cy SNTCL ; _ SAVE REGISTERS 
LA SREGZsSSASWH SET UP SENSE ENTRY 
" PVC SNSUN(2),-2(S5LUBRG) SET SENSE SwWT 
BAL SREGR»SNTCAL GO TO ISSUE INTER- 
* NAL SENSE 
EX Oe SNTCLA RESTCRE REGISTERS 
EX Or SNTCLB RESTORE 1-0 OLO 
% PS» CSW AND CAW 
EX C,SNTCLC RESTORE SAVED CCW 
BCR 15,SREGM RETURN 
& . 3 
SENSA ECU * DEFINE CURRENT IC 
, CRG SIC3 
ac 1,SENSA SET UP ENTRY 
GRG SNTPA 
ec 15,SENSAl SET UP ENTRY 
ORG SENSA RESTORE CURRENT IC 
% i 
CLC 262, 5LUBRG)»SNSUN CHK IF SENSE OEV 
ge 8,S103+4 YES ~ GO TO RETURN 
Te a,x*so* SET TO CC 3 AND 
aC L5eSAGIAL BRANCH IF NO 
> 
SENSA1 CLC 202, SLUBRG),SNSUN CHK IF SENSE DEV 
6c 72SENSB ; BC IF NO 
PVC SNSUN(2)2SZRCS CLEAR SENSE SWT 
LA SREGH,SNTPM SET TO PROCEED 
gc L54SRTPR 144 GG TG REXURN 
SENSH TM 69414 CHe FOR 3 CHANNFL 
xe ERRCR CONDITIONS 
e —~ REPLACED INSTR 
15,SNTPO. RETURN TN CHECK 


SAE 


SENSE SHlYCH 


BIC3KNAG 
BIC3KC19 
BIC 3KO20 
B103K030 
BIO3ZKN49O 
BIC3KN59 


BIN3K060. 


BIO3KN7N 


-BIT3KORO 


BIf3K090 
BIG3K LOO 
B103K110 
BIC3K120 
BI0N03K130 
BIN3K140 
BI03K150 
BIC3K160 
BIO3K170 
B103K180 
B103K190 
BIG3K200 
BI1G3K210 
BIO3K220 
BIQ3K230 
BIC3K240 
8103K250 
BIO3K269 
BIQ3K270 
B103K280 
BIO3K290 
BI03K300 
BIO3K310 
B103K320 
B8103K330 
BIC3K340 
BI103K350 
BICQ3K360 
BI03K370 
B103K380 
BI03K390 
BIO03K400 
BION3K410 
BIO3K420 
BI03K430 
BIQ3K440 
BI103K450 
BIO3K460 
BIQ3K470 
B103K489 


BIC3L000 
BIO3L010 
81C03L020 
8103L030 
BIO3L040 
BIO3L05N 
BI03L060 
B103L070 
6103L080 
8103L090 
B.103t100 
BI03L110 
BI1O3L129 
BIO3L1L30 
BI03L140 
B103L150 
B103L160 
BIO3L170 
BI03L180 
BIN3L190 
B1O3L200 
BIQ3L210 
BIO3L220 
B103L230 
BIO3L240 
BI03L250 
BI03L260 
BIO3L270 
BI1O3L260 
BIC3L290 
BIO03L300 
BIQ3L310 
B103L320 
B103L330 
BIO03L340 
B1Q3L350 


BIO3L360 . 
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BI03L420 
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B103L530 
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USING SBSAD,SBSRG 


I-O BASE ROUTINE - GROUP 1 
CONDITION CODE 1 UNIT IDENTITY DISPLAY 


NOTE ~~ REQUIRES PRESENCE OF I-0 BASE 


ROUTINE 


EQU 2 DEFINE CURRENT IC 
ORG SAGIN1L 
BC 1,SCC1N 


ORG SCCIN 


SET UP ENTRY 
RESTORE CURRENT IC 


STH SUREGs58 
Ot 58yX*FO! 


SET DEVICE ADDRESS 

SET UNIT 1D INSERT 
NOTICE FLAGS 

RETURN == OVERLOAD 
TO ANY FURTHER 
EXPANSION OF CC 1 
ROUTINE 


BC 15_SAGIN3 


1-0 BASE ROUTINE —- GROUP 1 
NEW PSwW SET UP BASE ROUTINE 


NOTE ——- REQUIRES PRESENCE OF I-0 BASE 


ROUTINE 


SET UP I-0 INTERRUPT, 
MACHINE CHECK INTERRUPT, 
AND EXTERNAL INTERRUPT 
NEW PSUS 


USING SBSAD,SBSRG 
EQU % 
CRG STON 

BC 15eSIGK2 

ORG SI1OW+4 
¥VC 11208) 5S#PS 


DEFINE CURRENT IC 
SET UP ENTRY 


SET UP INITIAL 
NEW MACH CHK PSW 
ORG SIGN2 | RESTORE CURRENT IC 
SET EXTERNAL NEW 
PSW TO REPEAT 
I-O OPERATION 
HVC 112(8),SMPS. NEW MACH CHK PSW 
SET UP TO WATT 
‘SET UP 1-0 NEW PSW 
TO ENTER INTPT 
ANALYZER 
CLEAR I-00 OLD PSW 


HYC- 8B(8)d—eSXPS 


HVC ~~ 12018) 2SIOPS 


XC . 561169256 


: ~ REPLACED INSTR 
BC L5eSION1L +6 RETURN 
cs OF ALIGN TQ WORD 


CC AL1(0) . CHNS DISABLED ~- 


| ake EXTRN DISABLED 

cc AL1(0} MACHINE CHECK 
DISABLED 
cc AL200) 
oC AUSXTRA} GO TC REPEAT 1-0 
SEY uP 
oc AL1(C) ALL DISABLED 
cc.) ALL 2) HALT ; 
oc AL3{0) 
oc C*IHs* PSH ERROR HESSAGE 
cc AL1(0} CHNS DISABLEO -- 
, EXTRN DISABLED 

ct ALI(9) HACHINE CRECK 


GISABLED . 
os AL2(0) 
Bc AUSNTPIEN) GO TO INTPT 
RECEIVER 


BIO3M000 
8103010 
B103M020 
BI03M030 
BIO34040 


‘B103M050 


BIO3éM060 
BIO3MO0TO 
81034080 
BIO3M090 
BIO3M100 
BI103M110 
BI1034120 
81034130 
BIO3M140 
BIO3M150 
B103M160 
BI103K170 
B103é180 
BIQ3H190 
81034200 
BIO3M210 


BIC3NO00 
BIO3N010 
BIO3N020 
BIO3N030 
BIO3N040 
BIO3N050 
B103N060 
BIO3NOT70 
8103N080 
BIOQ3N090 
BIO3N100 
BIO3N110 
B103N120 
BI03N130 
BIO3N140 
BIO3N150 
8103N160 
BIO3N170 
BIO3N180 
BI03N190 
BIO03N200 
BIGO3N210 
BIO3N220 
BIO3N230 
BI103N240 


B103N250 


BIG3N260 
BIO3N270 
BIO3N280 
8103N290 
BIO3N300 
B103N310 
BIO3N320 
BIC3N330 
BIO3N340 
B103N350 
BIO3N360 
BIO3N370 
BIC3N380 


_8103N390 


BI03N400 
BIN3N410 


.B103N420. 


B103N430 
BIO3N440 
BIO3N450 
BIO3N460 
BIO3N470 
BIO3N480 
B103N490 
#103N500 


_ BIO3N510 


BIU3N520 
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\3 
\ 
Secs 
& I-G BASE ROUTINE — GRCUP 1 BIO3P000 
* SAVE AND RESTGRE EXTERNAL NEW PSW BIO3PO1L0 
* BIN3P020 
* 8103P030 
* NOTE -- REQUIRES PRESENCE OF NEW PSW SET UP BI03P040 
% BASE ROUTINE BIO3P050 
* BIM3P060 
* BIN3P070 
* SAVE CLRRENT EXTERNAL NEW PSW BI03P080 
* BIc3PN9N 
. 0CC480 USING SBSAD,SBSRG BI03P100 
ccossc ; SION4 ECU 3% DEFINE CURRENT IC BIO3PL1O 
ocosceé . CRG S103 B8103P120 
GOO5Cé 47 FO F 4EC BC 15,SIGAS SET UP ENTRY BIO3P14N 
. ~k * a BIC3P140 
: ' CCOS564 CRG SION2 BIN3P150 
Q00S56 47 FC F 4£C BC 15,SICNS SET UP ENTRY 8103P160 
acossac CRG SION4 RESTORE CURRENT IC B1I03P170 
 * BIC3P1A0 
CCOS6C C2 -C?7 F 4FA C 056 MVC SXPSwWi8) 488 SAVE CURRENT EXT BIO3P190 
; % NEW PSW BIO3P200 
OCOSSz CZ C7. C C5& F 464 MVC 88(8),SxPS SET EXTERNAL NEW BIO3P210 
; * NEW PSW BIO3P220 
* ; =~ REPLACED INSTR BIO3P230 
QGQS98 47 FO F 4aAC Bc 15,SION3 RETURN B103P240 
a B103P250 
x BIM3P260 
%. RESTORE SAVED EXTERNAL NEW PSW B103P270 
* B103P280 
CCCSSC $4 EF F ECA SIGK5 NI SwICh,1L91 CLEAR INT SwT BIO3P290 
* —~ REPLACED INST 8103P300 
CCOSAC DZ G7 6G CSE F 4FA MVC 8818) ySXPSh RESTORE SAVED EXTN BIC3P310 
2 aes NEW PSM - B103P320 
GCCCSAG6 47 FOF 11A-—. BC 15,S1Ch344 RETURN _ -B103P330 
* BIO3P340 
CGCSAs ACOCCCCOCGCCCCCO SXPSb CC X*QoCoCOCOCOO00000S BI03P350 
~ os cocool DRCP SREGZ BI03P360 
acc4eAo - USING SBSAD,S&SRG REDEFINE I-0 BASE 8B103P370 
* BID3P380 
| 
\ r 
Se / 
, % I-C BASE ROUTINE — GROUP 1 B1030000 
a EXTERNAL INTERRUPT BASE ROUTINE B103Q010 
x 81030020 
” , 81030030 
* NCTE ——- REQUIRES PRESENCE OF I-C BASE BI03Q040 
* ROUTINE B1030050 
e 81030060 
% NOTE -= THIS RCUTINE ENABLES THE SERVICING 81030070 
* . OF CONSCLE INTERRUPTS UNDER THE BI030080 
% CONTRGL CF THE I-0 ROUTINE AND B1030090 
2 STILL PERMITS THE ATTACHMENT OCF B1N30100 
* ROUTINES YO SERVICE TIMER ANO-OR B103Q110 
o EXTERNAL SIGNAL INITIATED EXTERNAL B1030120 
* INTERRUPTS AIC3Q130 
* 81030140 
o EXTERNAL INTERRUPT ENTRY B1030160 
 * B103Q170 
00C480 LSING S$8SAD,S8SRG B1030180 
COCSB2 SXTRIN EGU % DEFINE CURRENT IC 81030190 
ccoscs ORG SXTRN 81030200 
- COOSDE 47. FC F 502 BC 15,SXTRIN SET UP ENTRY. B1030219 
‘CacsezZ CRG SXTRIN RESTORE CURRENT IC B10N30220 
* ; B1030240 
7 se ee COOcQOoF CROP SBSRG - 61030250 
‘ 2 * _ ccos82 50 FC C C14 st SBSRGySHOLD SAVE ENTRY BASE RG 81030260 
* Pais cocsbe Oo5 FC . BALR SBSRG,O SET TEMPORARY BASE BI030270 
occsss ~ USING %-SBSRG B1030280 
ccosse $8 FC F &3C L SBSRG»SBADR SET UP I-O BASE RG 61030290 
G0G4680 , USING SBSAD.SBS&G BI030300 
* B1030310 
-CCCSBC Si 4C F BCA TH SWICH,64 CHK IF INT SWT CN ° B1030320 
CCOSCC 47 :1C F SIE BC 1L»SXTRAL BRANCH IF ON 81030330 
CCGOSC4 9O FG F AEC STM SRGF»ySRGLySSV4 NOT ON —— SAVE REG B1030340 
GCCOSCE C2 C3 F AEQ O O14 PVC S$SV4(4)_,SHCLO SAVE ENTRY BASE RG 81030350 
ay * R1N30360 
e OEOLCE INTERRUPT ORIGIN B1030370 
; * fake B1030380 
CCCSCE $1 46 € GiB” SxTRAl TP 27464 CHK FCR CONSOLE B1030390 
, * INTERRUPT BIN3G400 
CcOsC2 47: 1C F 1EC BC LeSXTRNWS RETURN IF YES BIC30410 
cocsoé Si &¢C G ole ™ 274128 - CHK FOR TIMER INTP 81030420 
COCOGA 47 10 F SZE SxXTRAZ BC 1. %+4 - DUMMY BC -- CVERL BIC30430 
* ; wiThH BC TO TIMER 81030440 
: * ROUTINE BIC30450 
= CCCSDE -Sl 3F C Cle TM 27263 CHK FOR EXTERNAL B1030460 
A ’ ie , * ; SIGNAL INTERRUPT 81630470 
: ‘ . ; CCCSE2 47-70 F £36 SXTRN3 BC Ty t4h DUMMY BC -- CVERL BI03048C 
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* INTPT RCUTINE B103Q500 
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UNIT CHECK GROUP 
UNIT CRECK BASE ROUTINE 


ACUTINE 


SBSAD,SBSRG 
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_SNTPC 
1,SAKX 
SNKX 


15,44 


SREGM,SENS 
SNSA~4192 
TySAGIN 
SNSA,1 
@,SAGIND 


202, SLUBRG),SPRIR+2 


Te SAGGING 
15,%+4 


15,ySATPC +4 


NCTE ~= REQUIRES PRESENCE OF I-O BASE 


DEFINE CURRENT IC 


SET UP ENTRY 


RESTORE CURRENT IC 


DUMMY BC -- OVERL 


wITH BC TO UNIT 


CHK SPECIFIC 
ROUTINE 


GO TC FSSUE SENSE 


INTVN AND CCMM REJ 
BRANCH CN EITHER 
SENSE BYTE O-BIT 1 


8 TC SEREP IF OFF 


CHK IF PRNTER 


B TC SEREP IF NOT 


OVERL FOR ROUTINE 


TO HANDLE CHANNEL 


9 ON PRINTER 


RETURN TO ANALYZER 
IF NOT INTER~ 


CEPTED 


UNIT CHECK GROUP 
UNIT CRECK TAPE ROUTINE 


REQUIRES PRESENCE OF UNIT CHECK 


BASE ROUTINE 


REQUIRES PRESENCE OF UNIT SENSE 
RCUTINE [A I-0 BASE ROUTINE GROUP 


REQUIRES PRESENCE OF INTERNAL CALL 


ROUTINE IN I-G BASE RCUTINE GROUP 
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1,SNKTS 


SNSAeS 
7eSAGUNO 
SREGH,SNKTRIE 
15,SAGIAN 


DEFINE CURRENT IC 


SET UP ENTRY 


RESTORE CURRENT IC 


BC IF YES 


CHK IF TAPE 
RETURN IF NOT TAPE 


GC TC ISSUE SENSE 


CHK FOR BUS OUT 


BC TQ RETRY 
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BC fC SI LOG OUT 
CHK FOR INTERV REQ 
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CHK FOR DATA CHK 
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UNIT CHECK GROUP 
UNIT CHECK TAPE ROUTINE 


bee 


B1005550 
B1005560 
BI005570 
BI005580 


. B1005590 


~ CONTINUED - 
SWICH e128 CHECK FOR CCl 
1,*+8 BC IF INITL SELCTN 
SREGM,SNKTR1 TO REPOSITION TAPE 
STHX24+143 SET RETRY COUNT 
SREGM, STRCT LOAD RETRY COUNT 
SREGMy1L{SREGM) INCREMENT COUNT 
SREGM, STRCT SAVE CURRENT COUNT 
SREGMySTHX2 SUBTRACT MAX COUNT 
25 SAGING BRANCH IF EXCEEDED 
SRGF,SREL¢SSV4 RESTORE ENTRY REGS 
‘152SREGZ ' . GO TO REISSUE CALL 
Oy SNTCL SAVE REGISTERS 
O.STFSB LOAD TO FWO SPACE 
SHOV,255 CHK IF FWD MOTION 
8y%+8 BRANCH IF NOT 
SREGZ,SASRwW LOAD TO BACKSPACE 
SREGM,SSVRB+36 SAVE RETURN REG 
SREGR» SNTCAL ISSUE INTERNE CALL 
QySNTCLA RESTORE REGISTERS, 
OsSNTCLB TOOPS,CSW AND CAwW 
Or SNTCLC ANO SAVED CCW 
15,SREGM RETURN — 


UNIT CHECK GROUP 
TAPE RETRY BASE ROUTINE 
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ORG 


EX 
TH 
BC 


LH 


LH 
SH 
BC 
CH 
BC 
™ 
BC 
EX 
BC 
MVC 
BAL 
LH 


oa 


STH 


~ SHE 


SRTITE 


BC 


EX 
LA 
LA 
aye 


r 
he 


i 
BAL 


go 


ry 
SNKT3 
Te STRET 
STRET 


O,SNTCL 
SNSA+t1 94 
1,STRETI 
SREGMe SNTICLK#18 


ACTE -—— REQUIRES PRESENCE OF UNIT CHECK 
TAPE ROUTINE 


NOTE ~~ REQUIRES PRESENCE OF CONTROL ENTRY 
MOOULE IN 1-0 CALL ENTRY GROUP 


DEFINE CURRENT IC 


SET UP ENTRY: 
RESTORE CURRENT I[C 


SAVE REGISTERS 
CHECK WRITE STATUS 
B IF WRITE STATUS 
LOAD CCW ADDRESS 


SREGH,OCSREGH,O) LOAD CCW COUNT 


SREGM, SNTICLK+14 
8ySYTRET1 

SREGM, STRLY 
12,STRETI 
SNSA#1,4 "80" 
1,STRETL 

Oy SNTCLA 
15¢SNKTRE 
STMX3(2) ¢STHXL 


~ SREGMy SNKTR1 


SREGH,STRCT 
SREGMs LUSREGH) 


SREGH, STRCT 


~ SREGM, STHAS 


2eSTREC 


Oe SNTCL 
SREGZ»SCTLb 
SLUBRGySTAP 
SOLEL23,STAP+2 
SREGK, SOLE 
SREGAsSTIEM 
SREGMe SNKTR2 


15ySNKIRE 


SUBTRACT CSW COUNT 

BRANCH IF ZERO 

CHK IF 12 OR LESS 

BRANCH GTR OR ECU 

CHECK NCISE BIT 

BRANCH IF ON 

RESTORE REGISTERS 

GG YO REISSUE CALL 

SAVE RETRY COUNT 

YO REPOSITION TAPE 

L RETRY COUNT 

STEP FOR CURRENT 
ATTEMPT 

SAVE CURRENT COUNT 

SUBTRACT MAXIMUN 

RETRY COUNT 

B IF EXCEEDED 


SAVE REGISTERS 

SET CONTROL ENTRY 
DEV~UNIT BLOCK ADR 
GET DEVICE ADDRESS 
LCSD DEVICE ADDR 
TEE #OOFR BITS 

GO YO 1SSueé TIE 

INTERNAL CALL 
GO TG REISSUE CALL 
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B1006240 
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BINDé286 
BIND6296 
BI006300 
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B10D6346 
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BINDG6360 
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|OYaXx} |OMAX 
Ps UNIT CHECK GROUP BIND6510 
% TAPE RETRY BASE ROUTINE -B10D6520 
* - CONTINUED - BINDS530 
* 81006540 
% B10D6550 
Si C3 F 436 STREC TH SNTCLK+28,SCILOP TEST FOR CNTRL OP BI0D6560 
47 SC F 692 BC 9, STREC3 NOT READ OR WRITE BI006570 
G1 C2 F 43€ TH SNTCLK+28ySRD TEST FCR READ CP 81006580 
47 &C F 1F4 STREC1 BC By SAGINC B IF NOT -- OVERL 81006590 
* WITH BC TO ERASE BI0D6600 
* FORWARD BIND6610 
47, 1C F 1F4 STREC2 BC Ly SAGIND B IF READ-— OVERL 81006620 
* WITH BC TO BACK= BI0D6630 
& SPACE CLEANER B10D6640 
47 FC F LFS BS 15, SAGIND BRANCH TO LOG OUT 81006650 
: BIOD&660 
47 €6 F LF4 STREC3 BC 8ySAGIND B IF NOT CNTRL OP 31006670 
$1 1F F 436 TH SNTCLK+28_,STM TEST FOR WTM OP 81006680 
47,10 F 1F4 ac 1, SAGING B IF WTM ~= OVERL BI0D6690 
% WITH BC TO ERASE BI0D6700 
% FORWARD ‘BIOD6710 
47 FC F 5C6 BC 15_ySNKTRE GO TO REISSUE CALL 81006720 
* BI0D6730 
cooc STuLV OC X*000C* 81006740 
; oS OF BI0D6750 
18 S¥1EM OC x' lB! TRACK IN ERROR BIDD6760 
OCCFFA DC AL3(SNSA4+2) TIE SENSE BYTE BI10D6770 
OcGc SCIE oC AL2(0) DEVICE IN ERROR BI006780 
coc. | OC AL201) DATA COUNT. BIOD6790 
ococ STMX2 DC AL2(0) ELG MAX RETRY B1006800 
cooo S3HX3 OC AL2¢0) 81006810 
% UNIT CHECK GROUP BIO0D7000 
2 TAPE READ RETRY ROUTINE BIOD7010 
8 BACKSPACE CLEANER B1007020 
a BI0D7030 
% BIODT040 
% NOTE =- REQUIRES PRESENCE OF TAPE RETRY BI007050 
% BASE ROUTINE | B10D7060 
% , BIO07070 
&® NCTE -- REQUIRES PRESENCE OF UNIT SENSE BI007080 
Ps ROUTINE IN I-O BASE ROUTINE GROUP 1. 81007090 
3 B1007100 
) BIOD7110 
00C4B0 USING SBSAD,SB8SRG : B1007120 
“ SB8KSP EGU *& DEFINE CURRENT IC 81007130 
ORG S¥REC2 BIDD7140 
47 1C F é80 BC Ly SBKSP. SET UP ENTRY BI0D7150 
ORG = SBKSP RESTORE CURRENT IC B1007160 
é BICD7TLT7O 
CZ C3 F B50 F 056 : HVC SCNTR(4),SZROS RESET RETRY COUNT 81007180 
45 8C F B54 tH SREGM, STRCTT LOAD BXSP CLNR CNT 81007190 
41 &8 C 00) LA SREGM,»LISREGM) INCREMENT COUNT 81007200 
“40 EC F B54 STH  SREGH,STRCTT SAVE CURRENT COUNT 81007210 
48 €0 F S28 SH SREGH,ST#X1 SUB MAXIMUM COUNT 81007220 
47 CC F 6C8 BC 129SBKSP1 B IF NOT EXCEEDED 81007230 
OZ Cl F BSA F B56 MVC = STRCTY(.2)ySZROS RESET CLEANER CNT  B1007240 
56 €C F BOS L — SREGM,SSVR*32  RESTGRE REG 8 B10D7250 
47 FC F O1F4 BC 15,SAGINC BRANCH TO LOG OUT 81007260 
- BICD7270 
CZ 0G F GAC F SOE SBKSPL HVC ST#X241(1),SHOV SAVE MOTION SWITCH B1007280 
92 FF F SOE HWL = SMOV,255 FORCE BACKSPACE B1ND7290 
45 &C F §CC BAL  SREGM,SNKTRL TO BACKSPACE TAPE 81007300 
45 80 F 446 BAL  SREGH,SENS GO TO ISSUE SENSE 61007310 
$1 C& F B4S TH SNSA+1 98 CHK FOR LOAD POINT B10D7320 
47 10 F 7hk2 BC Ly SGKSP244 B IF AT LOAD POINT 81007330 
42 €C F BSC LH SREGMySCATR LOAD SPACE CCUNT 81007340 
41 48 C Col LA SREGM,yL(SREGH) INCREMENT BI007350 
4C &C F 850 STH SREGM,SCNTR SAVE CURRENT COUNT B10D7360 
95 C4 F BSi CLI = SCNTRO1,4 CHECK FOR MAXIMUM B1007370 
47.40 F é£e gC 4, SBKSPL BRANCH IF NOT 81007380 
92 OC F SCE PVIL SNOV,0 FORCE TO FWO SPACE 81007390 
47 FC F 712 BC 155%48 81007400 
40 €0 F.285C SBKSP2 STH SREGH,SCNTR SAVE CURRENT COUNT 81007410 
91 C7 F B51 THs SCNTA+1,7 CHECK SPACE COUNT 81007420 
47 €C F 726 at 8, SOKSPE BRANCH IF ZERO 81007430 
45 G0 F 5CC HAL S§REGH, SNKTRI TO FORWARD SPACE B1007440 
$6 €0 F wSE Ls SALSM, SCATR LOAD SPACE CCUNT 81007450 
46 £6 €§ WE HET  SREGH,Sa SP2 DECREMENY ANDO CHK 81007460 
Ci CC F SCE F 6A40:) | «S8KSPE YS  SMOVOL),STMx241 HESTORE NOTION SW 81007470 
41 FO F 5L6 ae, 15, SNKTRE GO TO REISSUE CAL 81007480 
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a” 
% UNIT CHECK GROUP BIQDAOOD 
Pe TAPE WRITE RETRY ROUTINE BINDRO1LO 
2 ERASE FORWARD 81008020 
a 6810D8030 
¥ BInd&a&H40 
* NOTE ~= REQUIRES PRESENCE OF TAPE RETRY B10D8050 
* BASE ROLTINE 81008060 
% ; . B10D8070 
* NOTE —= REQUIRES PRESENCE OF REWIND ENTRY 81008080 
> HGOULE IN I-O CALL ENTRY GROUP BInD8090 
* BIODB100 
” BIOO8110 
coc4ac USING S8SAD,SBSRG BINDB120 
GCOREC SEFwD ECU ¥ DEFINE CURRENT IC B1008130 
cCok3é | : ORG STRECL | BIOD8140 
Q00B32& 47 EC F 73¢ | BC 8, SEFWD : SET UP ENTRY B1008150 
CCOB4A CRG STREC3+8 81008160 
COGE4A 47 1C F 230 BC 1,SEFWO SET UP ENTRY 81008170 
CCOREC . CRG SEFWD RESTORE CURRENT IC 81008180 
; * BI008190 | 
CCOBEC Cz Ci F B52 F B56 MVC = STRCT(2),SZROS RESET RETRY COUNT 81008200 
OOOBEG 4E ED F B54 . LH SREGM,STRCTT LOAD ELG RETRY CNT 81008210 
CCOREA 41 €8 C CCl LA SREGHyL(SREGM) INCREMENT 81008220 
CCOBEE 40 €6 F B54 " «GTR = SREGM, STRCTT SAVE CURRENT COUNT 81008230 
COOSF2 48 60 F EAC SH SREGM,STRX2 SUB MAX RETRY CNY 81008240 
COOEFE 47 CC F 75@ BC 12,*+18 | 8 IF NOT EXCEEDED 81008250 
: CGOBFA C2 Cl F B54 F B56 HVC. STRCTT(2),SZROS RESET ELG RETRY CT 81008260 
ccoccc «58 &G F B04 L SREGM,SSVR*32 .RESTORE REG 8 81008270 
CGOCOS «47 FO F IFA - BC | 15eSAGING BRANCH TO LOG OUT sBra0Da2z80 
% ; BIoD8290 
CCOCCE 44 CG F 3E6 EX Ce SNTCL SAVE REGISTERS B1008300 
GOOCOC 41 1C F $54 LA. SREGZ+SRND SET REWIND ENTRY BICD8310 
e USING AS CONTROL 81008320 
= & ENTRY TO ERASE 81008330 
. . . CCOC1G 58 2C F 770 a Ls SREGAy SELG ELG HODIFIER 81008340 
: ‘ . ae | GoCcls 14 38 . LR - SREGNySREGH | NON=ZERO VALUE 81008350 
. — COOCIG 45 EG F SFC : BAL «—- SREGHy SNKTR2 GO TO ISSUE ERASE 81008360 
% INTERNAL CALL 81908370 
. CCOCIA 47 FC F SC& se BC 15ySNKTRE GO TO REISSUE CAL 81008380 
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eer | a ' ¢coczc © cS oF B10D8400 
t We ge ’ ococ2zc 1co00cocl SELG oc x*10000001° ERASE LONG GAP OP 81008410 
ae = - * as 81008420 
! 
3 UNIT EXCEPTICNAL CONODITICN GROUP 810FOO00 
¢ UE BASE ROUTINE BINFO0010 
" @ ; BIOFOO2O 
& NOTE —— REQUIRES PRESENCE OF I-O BASE | BIOFO030 
% | ROUTINE | BIOFO04O0 
@ . BIOFOOSO 
: oe BI0FO080 
GoC460 . USING SBSAD,SBSRG BINFOO7O 
CCOC24 7 §UEX. EQU) # DEFINE CURRENT IC BIOF0080 
CCOE4SE Mp ORG SNTPD : BIOFOO90 
COCE6SE 47 1C F 774 ac L»SUEX | - SET UP ENTRY BIOFOLOO 
cocc24 GRG  SUEX RESTORE CURRENT IC BIOFOIL0 
% BINFO120 
cCocc24 47 FC F 778 BC 15 4%+4 -DUMMY BC -- OVERL BIOFO130 
. ; % WITH BC TO U E BIOFO140 
* SPECIFIC BASE BIOFO150 
s ROUTINE BIOFOL66 
es BI0FO170 
ccoczé 47 FC F 212 SUEXP ac 15,SAGIN RETURN -~ IF NOT BIOFO18O 
" ji ¢ INTERCEPTED TO BIOFO190 
» INDICATOR WAIT © BIOFO200 
9 HINTMAL ROUTINE BIOFO210 
* “- OVERL WITH BC SBIOFO220 
% TO SET uP USER BIOFO230 
/ SUPPLIED ADDRESS BIDF0240 
* IN REGISTER 4 BIGFG250 
=, BIOFO260 
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a UNIT EXCEPTIONAL CONOITION GROUP 
¥ UE SPECIFIC UNIT BASE ROUTINE 
% 
3 : 
e NOTE ——= REQUIRES PRESENCE OF U E BASE 
% ROUTINE 
% 
x 
000480 USING SBSAD,S8SRG 
SUES EQU ¥ DEFINE CURRENT IC 
O2G SUEX 
47 FO F 77C BC 15,SUES SET UP ENTRY 
O2G SUES RESTORE CURRENT IC 
» 
47 F&O F 780 BC. 155444 DUNHY BC -—=- OVERL 
% SPECIFIC READER- 
% PUNCH ROUTINE 
47 FQ F 2704 SUEB BC "59444 DUHHY BC ~— OVERL 
u WITH BC TO UE 
9 SPECIFIC TYPE WR 
% ' ROUTINE 
47 FO F 783 SUEC BCG 15_9%t4 DURHY BC ~~ OVERL 
os WITH BC TO UE 
% SPECIFIC PRINTER 
% ROUTINE 
47 FO F 78C SUED 8C 15 4%+4 OUHHY BC —-— OVERL 
% WITH 8C TO U E 
¥ SPECIFIC TAPE 
% ROUTINE 
47 FCG F 770 SUER Bo 15 —SUEXP RETURN IF NOT 
3 INTERCEPTED TO 
% INDICATOR WAIT 
* WITH BC TOU E 
a UNIT EXCEPTIONAL CONDITION GROUP 
& UE BASE ROUTINE GROUP 
7 
3% 
% 
% SET. uP UNIT EXCEPTION RETURN ADDRESS 
% 
9. NOTE —- REQUIRES PRESENCE OF UNIT EXCEPTION 
a BASE ROUTINE 
=’) 
9 ’ 
606460 USING SBSA0,SBSRG 
SUEXR EQU % DEFINE CURRENT IC 
ORG SUEXP 
42 FC F 790 ac 15, SUEXKR SET UP ENTRY 
O&G SUEXR RESTORE CURRENY IC 
C2 C2 & AGC F AFS HVC SATRNG5(3) eSSVRe17 ADDRESS 
47 FO F 186. BC =—s- AS »SNTPH RETURN 
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¥ UNIT EXCEPTICNAL CONDITICN GROUP 

* UE PRINTER ROUTINE 

Py 

* NOTE -=. REQUIRES PRESENCE OF U E SPECIFIC 

* UNIT BASE ROUTINE 

% 

* NOTE —= REQUIRES PRESENCE GF INTERNAL UNIT 

* SENSE ROUTINE IN I-O BASE ROUTINE 

a 

“ NOTE —= REQUIRES PRESENCE OF PRINTER 

x SKIP=TO-ONE ENTRY ROUTINE 

& 

* NOTE —= REQUIRES PRESENCE OF INTERNAL CALL 

” ROUTINE IN I-O BASE ROUTINE GROUP 

By 

USING SBSAD,ySBSRG 

SUEP EQU #8 DEFINE CURRENT IC 
ORG SUEC 
BC 15,SUEP SET UP ENTRY 
ORG . SUEP RESTORE CURRENT IC 

x . : 
CLC 2¢2,SLUBRG),SPRTR+2 CHK IF PRINTR 
BC 7,SUEC+4 RETURN IF NOT 
™ SUEPSh,128 CHK IF SKIP-TO-1 

x FLAG IS ON 
eC = ly SNTPH BRANCH IF ON 
oO! SUEPSW,128 SET SKIP<TO-1 FLAG 
EX CeSNTCL SAVE REGISTERS 
LA SREGZsSKIPW SET FOR RESTORE 

* “ENTRY 
L SREGL» SPRTR+4 SET UP U E RETURN 
BAL SREGR»SNTCAL GO TO ISSUE SKIP 
EX C+SNTCLA RESTORE REGISTERS 
EX OySNTCLB . RESTORE I-O OLD 

* : PSWe CSW AND CAW 
EX O,SNTCLC RESTORE SAVED CCW 
wI SUEPSW,127 CLEAR SKIP-TO-1 

* FLAG 

SUEPR BC 15ySUEC+4 RETURN 

% 

SUEPSH CC “ALL(O) AREA FOR FLAGS 
DS OH ALIGN TO HALF WORD 

# BOUNDARY 

% I-G CALL ENTRY GROUP 

% REAC CARD ENTRY — WAIT 

% ' 

® NOTE —— REQUIRES PRESENCE OF I-O BASE 

% : ' ROUTINE 

gs i . 

® NCTE —— REQUIRES PRESENCE OF ADDRESS 

% ; CONSTANT IN SINTRY TABLE 

e ‘ 

a : ; 
USING SBSAD»SBSRG 

SROCH EQU # DEFINE CURRENT IC 

ORG  SINTRY DEFINE TABLE LOC 

pc AUSROCH) DEFINE ROUTINE ENTRY 
ORG SROCW RESTORE CURRENT IC 
CROP SBSRG 
USING *,SREGZ 
ST SBSRG,ySHCLD RESERVE ENTRY BASE 

; BC. 15_ySSAVR GO TO SAVE REGS, 

® SET BASE REGISTER 

Pa AND INITIALIZE 

e CCW ANC CAW 
DROP SREGZ 
USING SBSAD,ySBSRG 
avi SHNHy SHATF SET FOR WAIT CALL 
HVI SCCW,SRO SET TO READ 

SROCW2 LA SLUBRG e SCRDR SET CARD READER 

% REFERENCE 
BC 15551060 GO TO START 1-0 
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USING 
EGU 
CRG 
oc 
CRG 
CROP 
USING 
ST 
BC 


CRCP 
USING 
4V1 


MVI 


LA 
Bc 
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LSING 
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CRG 
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ORG 
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USING 
ST 
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I-C CALL ENTRY GROUP 


\ 
}AdOO: 
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roared 


WRITE MESSAGE ENTRY — WAIT 


RCUTINE 


NCTE -= REQUIRES PRESENCE OF I~O BASE 


NCTE -— REQUIRES PRESENCE OF ADDRESS 


CCNSTANT IN SINTRY TABLE 


SBSAD,SBSRG 
2 

SINTRY+12 
A(SHHSh) 
ShKMSH 

SBSRG 
#,SREGZ 
SBSRGy SHCLD 


: 15,SSAVR 


SREGZ 
SB8SAD,SBSRG 
StiNWy SWATF 
SCChiy SHRRT 


SLUBRGsSTYPR 


“15~¢S10GC 


OEFINE CURRENT IC 
DEFINE TABLE LOC 
DEFINE ROUTINE ENTRY 

KESTCRE CURRENT IC 


RESERVE ENTRY BASE 

GO TO SAVE REGS, 
SET BASE REGISTER 
AND INITIALIZE 
CCW AND CAW 


SET FOR WATT CALL 
SET TO WRITE 1 
LINE 

SET MESSAGE UNIT 
REFERENCE 

GO TO START I-0 


T-0 CALL ENTRY GROUP 
PRIAT ENTRY — WAIT 


ROUTINE 


NCTE -~ REQUIRES PRESENCE OF I-O BASE 


RECUIRES PRESENCE OF ADDRESS 
CONSTANT IN SINTRY TABLE 


SBSADySBSRG 
= 

SINTRY +24 
ACSPRTW) 
SPRTwW 

SB SRG 

%, SREGZ 
SBSRGy SHCLD 
15,SSAVR 
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SBSADySBSRG 
S\uNiy SHATF 
SCCWs SRAT 
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OEFINE CURRENT IC 
DEFINE TABLE LOC 
DEFINE ROUTINE ENTRY 


RESTORE. CURRENT IC 


RESERVE ENTRY BASE 

GO TO SAVE REGS-+ 
SET BASE REGISTER 
AND INITIALIZE 
CCW AND CAW 


SET FOR WAIT CALL 
SET TO PRINT 

SET PRINTER 
REFERENCE 

GO TO START. 1-0 
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I~O CALL ETRY G¥CUP 
PUNCH tNTRY 


NOTE -—. THIS ENTRY GNLY FCK PUNCH WHOSE 
UNIT ADDRESS DIFFERS FROM THE CARD 
READER ADCRESS 


NOTE —= REQUIRES PRESENCE OF I-O BASE 
ROUTINE 


_ NOTE —- REQUIRES PRESENCE OF ADDRESS 


CONSTANT IN SINTRY TABLE 


USING SBSAD,SBSRG 
EQU % 

ORG SINTRY436 
CC AUSPUC) 

CRG SPuCc 

DROP SBSRG 

USING *,SREGZ 

ST S8SRG,SHEOLD 
BC 155SSAVR 


DEFINE CURRENT IC 
DEFINE TABLE LOC 
DEFINE ROUTINE ENTRY 

RESTORE CURRENT IC 


RESERVE. ENTRY BASE 

GO TO SAVE REGS, 
SET BASE REGISTER 
AND INITIALIZE 
CCW AND CAW 

DROP SREGZ 

USING SBSADySB8SRG 
BVI = SCC Hy SPU 

LA SLUBRG» SPNCH 


SET TO PUNCH. 
SET CARD PUNCH 
REFERENCE 


BC 15¢S10G0 GO TO START I-0 


1-0 CALL ENTRY GROUP 
PUNCH-READER ENTRY 


NOTE -<~ THIS ENTRY ONLY FOR PUNCH WHOSE 


UNIT ADDRESS IS IDENTICAL WITH THE 
READER ADCRESS 


NOTE =~ REQUIRES PRESENCE OF I-0 BASE 
ROUTINE . 


NOTE —= REQUIRES PRESENCE OF CARD READ 
: ENTRY 


NOTE —— REQUIRES PRESENCE OF ADDRESS 
CCNSTANT IN SNTRY2 TABLE 


USING SBSAD,SBSRG 
Eau % 

ORG SNTRY2 

oc ACSPCRI 

GRG SPCR 

ORCP SBSRG 

USING 4 SREGZ 
ST SBSRG, SHCLD 
6c 15, SSAVR 


DEFINE CURRENT IC 
DEFINE TABLE LCC 
DEFINE ROUTINE ENTRY 

RESTORE CURRENT IC 


RESERVE ENTRY BASE 

GO TO SAVE REGS 
SET BASE REGISTER 
AND INITIALIZE 
CCH AND CAW 

OROP SREGZ 
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AVI SCChy SPU 
BC 15e¢SROCH2 


SET TO PUNCH 
GO TO WRITE 


BIOH30C0 
BIOH3010 
BIOH3020 
BI0H3030 
810H3040 
BIOH3050 
BIOH306C 
BIOH3070 
BI0H3080 
BIOH3090 
BIOH3100 
BINH3110 
BI0H3120 
810H3130 
BIOH3140 
BIOH3150 
BI0H3160 
B10H3170 
810H3180 
BI10H3190 
BIOQH3200 
BIOH3210 
BI0H3220 
BIOH3230 
BI0H3240 
BIOH3250 
B10H3260 
BIOH3270 
B10H3280 
B10H3310 
B10H3320 


‘BIOH3330 


B1I0H3340 
BI0H3350 
BIQH3360 


BIOH4000 
BIOHSO10 
BINH4020 
BIOQH4030 
BIOH4S040 
BICH4050 
BIDHSO60 
BICHSO0O70 
BINHSORO 
BIOH4090 
BINH4100 
BIOH4110 
RIGH4S120 
BICH4130 
BIOH4S140 
BIOH4150 
BIQOH4160 
BIOH41 70 
BINH4180 
BICH4190 
BIOH4200 
BIOH4210 
BIOH4S220 
BICH4230 
BICK4S240 
BINH4S250 
BIGH4260 
BICH4S270 
BINR4280 
BIOH4290 
BIFHS300 
BINHS310 
RIOH6340 
RIOK4350 
B10H4360 


beens 


MGR. - 








-QQOCF2 


000570 
CO0OS57CG 
COO4F& 
CO04FS 


' OCOCF2 


. GOOCF2 


OOOCFS 


QOOQCFA 
OOOcFE 


goocd2 


- 000006 


COODGA 
COQCOE 


aooci2 
C00clé 


COOCIA 
COO4FC 
O0Q4FC 
Goocla 


COOELA 


cconie 


‘gaon22 


6000265 
aoocaa 
QO0D2E 
Q00032 


HOOD346 


5C FO 0 O14 


600450 


D7 G5 & 849 F 248 
QcoOoCcCF2 

COOOOF 
docCr2 
47 €O 1 1F6 


c00d01 
000480 


92 
47 


41 
41 


41 
47 


92 


47 


02 
FO 


3c 
20 


il 
FO 


04 
FO 


an TO NO 


Aad 
852 


coé 
848 


018 
AGA 


Aca 
aqzc 


oooocodA 


50 


47 


$2 
41 
41 
4i 


47 


47 


FO 0 014 
1 43C§& 


FO 


a2 
20 
3C 
hi 
FC 
ec 


TRO WT 


AAQ | 
83C 
OGh 


000460 


aocoor 
oocola 


cacoo.l 
000480 


Cl4 - 


AGA 
TFA 


BOE EOHHRGBEEEHEEBEEE 


SSNSh EQU # 


& og & 


i 
7 


L 


< 
cae eee nee ae neeneemanaNelt Ra nECE Su cmt denen me ce ieee i bine eninedit ote tae eam 
‘ 


'AdOO: 
| OMSX | 


1-0 CALL ENTRY GROUP 
SENSE ENTRY ~ BAIT 


NOTE —~ REQUIRES PRESENCE OF I-O BASE 
ROUTINE 


NOTE ~~ REQUIRES PRESENCE OF ADDRESS 
CONSTANT IN SNTRY2 TABLE 


NOTE -—-. REQUIRES THAT SLUBRG CONTAIN SENSE 
DEVICE UNIT GLOCK ADDRESS AT TIME 
“OF ENTRY TO THIS ROUTINE 

OR 

REQUIRES PRESENCE GF LOCATE SINTRY 
TABLE UNIT BLOCK ROUTINE AND SENSE 
ENTRY LOCATE SINTRY TABLE UNIT 
BLOCK EXIT ROUTINE 


USTRG SBSAD,SBESRG 
OEFINE CURRENT IC 
ORG SCLR 
KC SNSA(6) ,SNSA 
ORG SNTRY2+4 
| OC AUSSNSW) 
GAG SSNSW 


CLEAR SENSE AREA 
DEFINE TABLE LOC 
DEFINE ROUTINE ENTRY 

RESTORE CURRENT IC 


OROP SBSRG 

USING %,SREGZ 

ST SBSRG» SHCLD 
BC L59SSAVR 


RESERVE ENTRY BASE 

GO YO SAVE REGS, 
SET BASE REG, AND 
INITYALIZE CCW 
AND CAW 


GROP . SREGZ 
USING SBSADeSBSRG 


AVI SWNH»y SUATF 


SSNSL BC 85,944 


eee e oe cog de 


LAé SREGH 6 
La SREGAsSNSA 


LA SREGZ 9 24(SREGZ) 
ec 159 SSAVRL 


- HVE SCOM,SNSOP 
8c 15,S10G0 


SET FOR WAIT CALL 
DUHNY BC -— OVERL 
WITH BAL SREGH TO 
LOCATE SINTRY 
BLOCK ROUTINE 
SET BYTE COUNT 6 
SET SENSE BYTES 
LOCATION 
ADJUST RETURN 


SET SENSE COKHAND 
GO TO ISSUE SENSE 


I-O CALL ENTRY GROUP 
WRITE HESSAGE SINGLE SPACE EWTRY - WAIT 


NOYE —— REQUIRES PRESENCE OF BRITE HESSAGE 


ENTRY ROUTINE 


NOTE —— REQUIRES PRESENCE OF ADDRESS 
CONSTANT IN SNTRY2 TABLE 


USING S&8SAD,SBSRG 


SecHy EQU & rae 


oe o 


B SHYRY24+3 

‘ oc ACSPCHU) 
GRG SPCR 
DAOP = SBSRG 
USTHG %2SREG2Z 
ST S8SRGs SHOLD 
gc 15ySSAVA 


CROP SREGZ 

USING S&SAD,55SRG 
RYT SHRM: SuATF 
La SREGA:S5LNK 
La SREGH» 1 


La SREGZ y20(SREGZ) 


BC 15,5 S5SAVR1 
6c 15,5 SHhS8e12 


DEFINE CURRENT IC 
DEFINE FABLE LOC 


DEFINE ROUTINE ENTRY 
RESTORE CURRENT IC 


RESERVE ENTRY BASE 

GO TO SAVE REGS, 
SET BASE REGISTER 
AHD INITYALIZE 
CCu AND CAw 


SET FOR WAIT CALL 
SET 
‘SINGLE 
SPACE 


GO TO WRITE 


BYOJ0000 
BIOJ0010 
BIOJ0020 
B10J0030 
BYOJ0040 
BIOQJOO50 
BICJ0060 
BIOJ00790 
BIYOJ0080 
BIOJ0090 
BI0J0100 
BIOJO110 
B10U0120 
BIOJ0130 
BI0J0140 
BIOJO150 
BIOJ0160 
BIOJOL70 
BIQJO180 
BIOJ0190 
B10J0200 
BIOJO210 
BI0J0220 
BI0J0230 
BIOJ0240 
BIGJ0250 
BIOJ0260 
BIOy0270 
BIOJ0280 
Br0J0290 
81030300 
BI0J0310 
BIOJ0320 
BI10J0330 
BI0J0340 
BIOJ0350 
BIOJ0360 
B10J0370 
BIOJ0380 
BIOJ0390 
BI0J0400 
BINJ0410 
B10J0420 
B10J0430 
BI10J0440 
BI0J0450 
B10J0460 
BIOJ0470 
BI0J0480 
BI10J6490 
BI0J0500 


BIOJ1000 
BI0J1010 
BI0J1020 
810J1030 
BYOJ1040 
BI0J1050 
BI0J1060 
BIQJ1070 
BIOJ1080 
BIOJ1090 
B10J1100 
BrOJL1110 
B§OJ1120 
BI0J1130 
BIOJ1140 
BIOJ1150 
BI0J1160 


BIOJ1170 | 


B10J1180 
BIOJ1190 
810451200 
BIOJ1210 


-B10J1220 


Br0ui230 
BIGJ1240 
81031250 
BIOJ1260 
BI10J1270 
BIOJ1280 
BI0J1290 
61041300 


BIOJL310 | 
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CCGL3A 
ccosoc 
CGO5CC 
CCOC3A 


Co0C34 
GOOC3E 


coocs2 
QO00L46 
COOLGA 
QOOLGE 
coors. 
GO0D56 


ooocss 
co0sa4 

- 000504 
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COOCSA 
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OCaOcéé 
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| OURX | 
* I-C CALL ENTRY GROUP 
* PRINT SINGLE SPACE ENTRY - WAIT 
: on 
: 
* NOTE ~~ REQUIRES PRESENCE OF PRINT ENTRY 
# RGUTINE 
ue 
* NOTE =-- REQUIRES PRESENCE OF ADDRESS 
* CCNSTANT IN SNTRY2 TABLE 
% ; 
x 
00048¢ USING SBSAD,SBSRG 
. SPCPH EQU # DEFINE CURRENT IC 
ORG  SNTRY2+12 DEFINE TABLE LOC 
DC = AC SPC PW) DEFINE ROUTINE ENTRY 
GRG = SPCPW RESTORE CURRENT IC 
QOO0OF DROP SBSRG 
OOCD3A USING %,SREGZ 
ST  SBSRGySHOLD RESERVE ENTRY BASE 
BC 15,SSAVR GO TO SAVE REGS, 
* SET BASE REGISTER 
* AND INITIALIZE 
| * CCw ANC CAW 
vocool DROP SREG2 
00c4B0 USING SBSAD,SBSRG 
HVI - SHNW, SKATE SET FOR WAIT CALL 
LA SREGA» SBLNK SET 
LA  —- SREGNo 1 SINGLE 
LA SREGZy20(SREGZ) SPACE 
BC =—-«:15, SSAVR1 
BC 8. «15, SPRTW+12 GO TO WRITE 
a 
* I-C CALL ENTRY GROUP 
* PRINTER SKIP=TO-1 ENTRY — WAIT 
c : 
’ | 
%° NOTE —- REQUIRES PRESENCE OF PRINT ENTRY 
® ROUTINE 
x 
* NOTE — REQUIRES PRESENCE OF ADDRESS 
e CONSTANT IN SNTRY2 TABLE 
¥ 
* 
000480 USING SBSAD,SBSRG 
. (SKIP EGU 4 DEFINE CURRENT IC 
CRG = SNTRY2416 DEFINE TABLE LOC 
OC ACSKIPW) DEFINE ROUTINE ENTRY 
| GRG = SKIPH RESTORE CURRENT IC 
COOOOF OROP SBSRG 
OOCoSA USING *,SREGZ : 
ST  SBSRG,»SFCLD RESERVE ENTRY BASE 
BC 159SSAVR GO TO SAVE REGS. 
* SET BASE REGISTER 
Ps AND INITIALIZE 
* CCW AND CAW 
cccool CROP SREGZ 
onc4se USING SBSAD,S8SRG 
HVI  SHNW, SWATF SET FOR WAIT CALL 
LA —- SREGA, 0 SET 
LA SREGNal SKIP=TO=1 
LA  - SREGZ»20(SREGZ} COHMAND 
BC  —- 15 SSAVR1 
* 
MVI - SCClte SKPOP SET SKIP COMMAND 
BC GO TO SKIP-TO=1 


15eSPRTW416 


BIOJ2000 


. BIOQU2Z010 


BI10N2020 
BI0J2030 
BI0U2040 
BI0N2050 
B10J2060 
BIOJ2070 
B10U2060 
BI0J2090 
B10J2100 
BIOU2110 
BI0J2120 
BI0J2130 
B10J2140 
BI0N2150 
B10JN2160 
BI0N2170 
B10J2180 
B10J2190 
BIOJ2200 
BINJ2210 
BIOJ2220 
BINJ2230 
BIOJ2240 
BIO0J2250 
BIOJ2260 
BIOJ2270 
BIOJ2280 
BIO0J2290 
BIOJ2300 
B10J231n 


B10J3000 
BI0J3010 
BIOJ 3020 
BI0J3030 
B10J53040 
BI0J3050 
B1DJ3060 
B10J3070 
81033080 
81053090 
BI0J3100 
B10J3110 
BI0J3120 
B10J3130 
BIDJ3140 
B10J3150 
B10J3160 
BI10J3170 
BIOJ3180 
B10J3190 
81053200 
B10J3210 
B103220 
81043230 
81033240 
B10J3250 
B10J3260 
BI0J3270 
B10J3280 
B10J3290 
B10J3300 
BI0J3310 
81053320 
B10J3330 
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GOOcTE 
co0506 
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oocD7E 


OOOD7E 
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GOOD8A 
Qoolae 


g00ng2 
GoQsoc 
ooos50c 
000092 


Oaocs2 
_ 060696 


—gonnga 
OCO00SE 


OCOOCOTE 


50 FC C 014 
47 FO 1 UGA 


92 02 F AAO 
92 03 F ACS 
47 FO F TE6 


aqooocns2 
50 FO G 014 


47 6 1 156 


92 C2 F AAO 
47 FO F O26 


000480 


OOO00F 
QOCDTE 


qo000l 
006486 


000480 


QdcaddF 


000092 


eieteletony 


000450 
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NOTE -- 


NOTE ~~ 


NOTE ~~ 


NOTE -- 


USING 
EQU 
ORG 
oc 
ORG 
OROP 
USING 
ST 


oc 


crop 
USING 
RVI 
WVE 
8C 


USEING 
EQuU 
ORG 
oc 
ORG 
OROP 
USING 
Si 

eC 


' OROP 


USING 
Wy 


ee 
tie 
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I-C CALL ENTRY GROUP 
PUNCH=READER ENTRY ~ WAIT 


THIS ENTRY ONLY FOR PUNCH WHOSE 
UNIT ADORESS IS IDENTICAL WITH THE 


READER 


REQUIRES PRESENCE OF I-0 BASE 


ROUTINE 


REQUIRES PRESENCE OF CARD READ 
ENTRY ROUTINE 


REQUIRES PRESENCE OF ADORESS 
CONSTANT IN SNTRY2 TABLE 


SBSAD»,SBSRG 
™% 

SNTRY24+20 
AUSPCRE) 
SPCRU 

SBSRG 
%,SREGZ 
SBSRGs»SHCLD 
15,SSAVR 


SREG2Z 
SB8SAD,SBSRG 
SWile SUATF 
SCC, SPU 
15,SROCH2 


OEFINE CURRENT IC 
DEFINE TABLE LOC 
DEFINE ROUTINE ENTRY 
RESTORE CURRENT IC 


RESERVE ENTRY BASE 
GO TO SAVE REGS» 
SET BASE REGISTER 
AND INITIALIZE 
CCW ANDO CAW 


SET FOR WAIT CALL 


SET TO PUNCH 
GO TO WRITE 


I-O CALL ENTRY GROUP 
PUNCH ENTRY ~ HAIT 


NOTE ~~ REQUIRES PRESENCE OF. PUNCH ROUTINE 
NOTE —— REQUIRES PRESENCE OF ADDRESS 


CONSTANT IN SNYRY2 TABLE. 


S8SA09S8SRG 


SNTARY2¢24 
ACSPUCH) 
SPU 

$3SRG 

Sy SREGZ 
SB8SRGsSHOLD 
15,SSAVR 


SREGZ 
S8SAD 4SE586 
Lute, SUATF 


| 25—5RPuUC 48 


DEFINE CURRENT IC 
DEFINE TABLE LOC 
DEFINE ROUTINE ENTRY 
RESTORE CURRENT IC 


RESERVE ENTRY BASE 
GO TO SAVE REGS, 


B10J4000 
B10J4010 
BIOJ4020 
B10J4030 
810N4040 
B1004050 
81034060 
BIOJ4070 
B10u4060 
BIOJ4090 
BI0J4100 
BIOJ4110 
B10N4120 
BI0J4130 
B1054140 
BIOJ4150 
81034160 
BIOU4170 
BI0JS4180 
BI0J4190 
BI0U4200 
B1044210 
B10J4220 
BI0J 4230 
BI0J4240 
BI0U4250 
B10J4260 
BIOJ4270 
BI0J4260 
B1054290 
BI1034300 
B10J54¢310 
81034320 
BI0J4330 
BI0J4+340 
81034350 


81055000 
BI10J5010 
BI0J5020 
B10J5030 
BI0J5040 
B10J5050 
610435060 
B1OJ5070 
51055080 
81055090 
BI0J5100 
BIOJ5110 
Br0y5120 
BI0J5130 
81055140 
B10 U5150 
BIOJ5160 
810535170 
B10J5180 


SEY BASE REGISTER B10J5190 


AND INITIALIZE 


CCu AND CAN 


SET FOR WAIT CALL 


60 TO PUNCH 


B10J5200 
BIOJ5216 
BIOJ5220 
81055230 
BI0J5240 


.BIOJ5250 


BI0N5260 
61035270 
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COOGEE 
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oa0cc4 
oeonca 
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caococ 
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oo0oo8 


OCODDA 
Q0Q4EC 
G004E0 
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OOOcDA 
QOocoe 


COOCE2 
COOCES 
OOOCEA 
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32 
47 
96 
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41 
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00 
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41 
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906 
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000480 


034 


ATC 


929 
000 
oo. 
004 


A&A 


600 


QOOCODLA 


50 FC O O14 
47 FO 1 10E 


$2 CA fF 929 


92 C2 F ace 


900430 


COO00F 
GQQ0DA 


coo0dl 
000480 


47 FC F &FE 
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I-O0 CALL ENTRY GROUP 
TAPE ENTRY BASE ROUTINE 


a’ 


“NOTE -— REQUIRES PRESENCE OF I-0 BASE 


ROUTINE 


REQUIRES PRESENCE OF TAPE UNIT 
REFERENCE IN SINTRY TABLE -- SRTPW 


IF READ TAPE ——- SRTPW -- IS NOT ONE 
CF THE TAPE FUNCTIONS SELECTED To 


' BE INCLUDED IN AN I-O PACKAGE 


NOTE == 
NOTE — 
USING 
SIPBKW OL - 
STPBK ‘HVI 
* : 
BC 
 STPFWH OI 
STPFH AVI 
% 
LA 
* 
BC 
SHOW DC 
p 
“2 
% 
- = 
% SE 
x 
STCHD HVI 
LA 
LA 
LA 
Bc 
% 
& 
STFSB OLA 
9 
%, 
: 
STHXL OC 
x 
USING 
SRTPH EQU 
ORG 
oc 
“ORG 
DROP 
USING 
st 
3c 
§ 
x 
& 
: 
prop 
USING 
HVE 
= 
HVI 
Pd 
BC 
or 


WHICH OGES USE CTHER TAPE FUNCTIONS 
THE ADORESS FOR ANY ONE OF THE 
OTHER TAPE CALLS FROM THE SECONDARY 
CALL ENTRY TABLE MAY BE SUBSTITUTED 
IN THE SINTRY TABLE BLOCK NOW 
HOLDING THE SRYPH CALL ENTRY 


ADDRESS.» ALL LINKAGE REFERENCES 
MUST BE ADJUSTED ACCORDINGLY 
SBSAD,SBSRG 
SKN, SHATF SET FOR WAIT CALL 
S#HOV,0 SET BACKWARD 
‘ HOTION SWITCH 
15,%+12 
SUNW, SHATF SEY FOR WAIT CALL 
SHOV,255 SET FORWARD HOTION 
-  SHITCH 
SLUBRG_STAP SET TAPE UNIT 
REFERENCE 
152S10G0 GO YO START I~0 
ALI(0) TAPE FHO-8KWD 


MOTION SHITCH 
ONES — FWD 


ZEROS ~ BKWD 
T UP FOR CHANNEL CONTROL COMMAND 
STHX1+1,0 SET NO RETRY COUNT 
SREGA,O SET UP CHANNEL 
SREGN,1 COHHAND PARAMETERS 
SREGZ,4(SREGZ} ADJUST SREGZ FOR 
RETURN 
15ySSAVR1 : 
PARAHETERS 
SBSRG»SBSAD DUMMY L -~ OVERL 
; WITH LA SREGZ OF 
FWD SPACE TAPE 
RECORD ROUTINE 
AL2(0) RETRY MAXIMUH 


ATTEMPT 


I-O CALL ENTRY GROUP 
READ TAPE RECORD — WAIT 


‘NOTE =~ REQUIRES PRESENCE OF TAPE ENTRY 


BASE ROUTINE 


NOTE ——- REQUIRES PRESENCE OF ADDRESS 


CONSTANT IN SINTRY TABLE 


SBSADys SBSRG 

3 DEFINE CURRENT IC 

SINTRY*48 DEFINE TABLE LOC 

AUSRTPH) DEFINE ROUTINE ENTRY 

SRTPH RESTORE CURRENT IC 

SBSRG 

%,SREGZ 

SBSRGsSHELD RESERVE ENTRY BASE 

‘L5ySSAVR GO TO SAVE REGS» 
SET BASE REGISTER 
AND INITIALIZE 
CCH AND CAW 

SREGZ 

SBSAD» SBSRG 

STHX1L¢1,10 SET READ RETRY 
COUNT 

SCCW,SRD © SET TO READ TAPE 

: RECORD 

15,STPFHb GO TC FWD MOTION- 

WAIT ENTRY 


ce tenet Nie NR ea LR Ee Hee Ene LA oe ae 


BIOKO000 
BI10K0010 
BI0KO020 
BIDK0030 
BIOKO040 
B10KO0050 
BIOKOO060 
BIOQKOOTO 
BIOKO080 
BIOKO090 
BIOKO100 
BIOKO110 
B10K0120 
BI0K0130 
BIOKO140 
BLOKO150 
BIOKO160 
BIOKO170 


BIOKO180 


BIOKO190 
B10K0200 
BIOKO210 
BIOKO220 
BIOKO230 
BIOKO240 
BIOKO250 


BIOKO260 


BIOKO270 
BIOKO280 
BIOK0290 
B8IGKO300 
BIOKO310 
BIOKO320 


BIOKO330 . 


BIGKO340 


BIOKO350 | 


BIOKO360 


BIOKO370 | 


BIOK0380 


BIOKO390 
BIOKO400 
BIOKO4L0 
BIOKO420 
BIOKO430 
BIOK0440 
BIOKO450 
BIOKO0460 
BIOK0470 
BIOKO480 
BIOK0490 
BIOKO500 
BIOKOS10 
BIOKO520 


BIOK1000 
BIOK1010 
°10K1020 
810K1030 
BIOK1040 
BIOK1050 
BIOK1060 
BIOKLO7O 
BIOK1080 
B10K1090 
BIOK1100 
BIOK1110 
BIOK1L120 
BI0OK1130 
BIQK1140 
BIOKL150 
BIOKL160 
BIOK1170 
810K1180 
BIOK1190 
810K1200 
BIOK1210 
BIOK1220 
BIOK1230 


- BIOK1240 


BIOK1250 
BIOK1260 
BIOKLETO 
BIOK1289 
BICK1290 
BI0K1300 
BIOK1310 
810K1320 


wa 
’ 
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a I-G CALL ENTRY GROUP BIOK2000 

% WRITE TAPE RECORD — WAIT BIOK2010 

% BIOK2020 

% BICK 2030 

% NOTE —~ REQUIRES PRESENCE OF TAPE ENTRY BIO0K2040 

& BASE ROUTINE BIOK2050 

% . BIOK2060 

* NOTE —= REGUIRES PRESENCE OF ADDRESS BIOK2070 

¥ CONSTANT IN SNTRY2 TABLE BI0K2080 

% BI0K2090 

% BIOK2100 

% BIOK2110 

00G4B0 USING SBSADs,SBSRG BIOK2120 

COOCEE : SwTPkh EQU 9 DEFINE CURRENT IC 810K2130 

ccoslc a "ERGs SNTRY2428 © OEFINE TABLE LOC  BIOK2140 

CCCS1C GOOCCCEE © cc ACSWTPW) DEFINE ROUTINE ENTRY BIOK2150 

GCOCEE CRG = SHTPW RESTORE CURRENT IC  BIOK2160 

COCOCF DRGP SBSRG BIOK2170 

CCCDEE USING ¥,SREGZ . BIOK2180 

GCCCEE 5C FO 0 O14 st SBSRG»SHOLD RESERVE ENTRY BASE BIOK2190 

CGOOCF2 47 FC.) CFA BC 15,SSAVR GO TO SAVE REGS» BICGK2200 

; we - SET BASE REGISTER BIOK2210 

* AND INITIALIZE BIOK2220 

* CCW AND CAW BIOK2230 

* 810K2240 

Fe x BIOK2250 

coccol CROP SREG2Z BI10K2260 

000480 - USING SBSAD,ySBSRG BIOK2270 

CCOCFS Gz CG F $25 BVI STHX1#190 SET WRITE RETRY BIOK2230 

: Fy COUNT BIOK2290 

GOCCFA 92 C32 F EAL HVI STHX24193 SET ELG RETRY CNT B1I0K2300 

COOCFE 92 Cl F Aca HVI SCC hy SUR SET TO WRITE TAPE 810K2310 

CCOEQZ2 47 FO F GFE BC 15,STPFWH GO TO FHD MOTION- B10K2320 

a a % WAIT ENTRY BIQK2330 

* | BI0K2340 
{ ' 
\ | 
Sees ee 

3 I-O CALL ENTRY GROUP BIOK3000 

s. REWIND TAPE BIOK3010 

% BIOK3020 

% B10K3030 

& NOTE ~= REQUIRES PRESENCE OF TAPE ENTRY BIOK3040 

a % a BASE ROUTINE BI0K3050 

. % BIOK3060 

% NOTE -~ REQUIRES PRESENCE OF ADDRESS BIOK3000 

9 CONSTANT IN SNTRY2 TABLE BIOK3010 

® BIOK3020 

3 BI0K3030 

000480 | USING SBSADsSBSRG ; : BIOK3040 

CCOECE  §RHD EQU @ DEFINE CURRENT IC BIOK3050 

COOE1S4 ORG SNTRY2¢32 DEFINE TABLE LOC 810K3060 

O0CO514 GOCOOECS DC = AC SRHD) DEFINE ROUTINE ENTRY BIOK3070 

CCOEOS et 8% ORG SRWD RESTORE CURRENT IC  BI0K3080 

; cCOOo0F prop SBSRG BIOK3090 

: COOEOS USING %SREGZ BIOK3100 

COOEQS’ 50 FC 0 014 ST SBSRG, SHOLOD RESERVE ENTRY BASE BIOK3110 

CGOEOA 47 FC 3 GE2 ac 15,S5SAVR GO TO SAVE REGS, BINK3120 

. % SET BASE REGISTER BI0K3130 

9 AND INITIALIZE BIOK3140 

8 CCU AND CAW BIOK3150 

ca BIOK3160 

ccoool CROP SREGZ BIOK3170 

000480 USING SBSAD,SBSRG B10K3180 

COOEOE 47 FC F G40 BC 15,STCHD GO TO SET BIOK3190 

: ; PARAKETERS BIOK3200 

“- GCOEI2 92 C7 F aca RVI SCCH,STRA SET TO REWIND TAPE B10K3216° 

QQ0ELG 96 C4 F AAD _ Ol SWNW » SREWF SET REWIND FLAG B10K3220 

OCOELA 47 FC F SFE - BC LSySTPEK GO TO BKWD HOTION 810K3230 

$y @ BIOK3240 
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% I-G CALL ENTRY GROUP BIOK4000 
* WRITE TAPE MARK = WAIT BIOK4010 
% BIOK4020 
% BIOK4030 
3 NOTE —— REQUIRES PRESENCE OF TAPE ENTRY BIOK4040 
vi BASE ROUTINE BIOK4050 
e BIOK4060 
&* NOTE —— REQUIRES PRESENCE OF ADORESS BIOK4070 
a: CONSTANT IN SNTRY2 TABLE BIOK4080 
a BIOK4090 
_ BIOK4100 
. oo0480. (. USING SBSAD,SBSRG BIOK4110 
OOOELE SuTMh EQU °° DEFINE CURRENT IC B10K4120 
cogs1éa ORG SNTRY24+36 DEFINE TABLE LOC BIOK4130 
'Q00518 OONQ0ELE OC. A(SHTHW) DEFINE ROUTINE ENTRY BI0K4140 
OOOELE ORG SUTHH RESTORE CURRENT IC BIOK4150 
cOocoOoF OROP SBSRG BIOK4160 
COOELE USING *,SREGZ BIOK%170 
QOOOELE 50 FG O 014 ST SBSRGe SHCLO RESERVE ENTRY BASE BIOK4180 
| COOZ2Z2 47 FO 1 CCA BC 15ySSAVR GO TO SAVE REGS, BIOK4190 
<. * SET BASE REGISTER BIOK4200 
a AND INITIALIZE BIOK4210 
* CCH AND CAW BIOK4220 
e . 810K4230 
coceo} DROP SREGZ BIOK4240 
Bh 000480 USING SBSSAD,SBSRG BIOK4250 
QOOE26 47 FO F 910 BC 15,STCAD GO TO SET PARAMETE BIOK4260 
OOOE2ZA 92 IF F ACS. HVI SCCHe STH SET TO WRITE TAPE BIOK4270 
COOEZE 47 FO.F GFE - BC 15,STPFUNW GO TO FWO MOTION= B810K4280 
: a oh Me . WALT ENTRY —- BIOK4290 
% . BIOK4300 - 
ft 4 
| | 
es 
n 
| 
& : I-0 CALL ENTRY GROUP BIOK5000 
s TAPE BACKSPACE RECORD —- WAIT BIOKSOLO 
% BIOK5020 
- BIOK5030 
® NOTE —— REQUIRES PRESENCE OF TAPE ENTRY BIOK50460 
gz. BASE ROUTINE BIOKS050 
ey BIOK5060 
® NOTE -— REQUIRES PRESENCE OF ADDRESS BIOKSO070 
% ; CONSTANT IN SNTRY2 TABLE BIOK5060 
a. . BIOK5090 
—  @ ; BIOK5100 
— 0004350 USING SBSAD,S85RG oA 4 BICK5110 
COOE32 S$OSRh EQU # DEFINE CURRENT IC BIDK5120 
eoosic . ORG SNTRY2%40 DEFINE TABLE LOC B10K5130 
-O0051C BoOodESZ '. oc ACSBSRHY DEFINE ROUTINE ENTRY BI0K5140 
COOES2 : ORG SB&SRH RESTORE CURRENT IC BIOK5150 
; acaoor DROP SBSRG BIOK5160 
OCCES2 USING %,SREGZ BIOK5170 
O0CE32 50 FC O 014 57 SB5RGw SHOLO RESERVE ENTRY BASE BIOK5180 
O00£36 47 FO 1064 . oc 15,SSAVR GO TO SAVE REGS-e BIOK5190 
ss SEY BASE REGISTER BIOK5200 
a AND INITIALIZE BIOK5210 
o CCH AND CAW BIOK5220 
Ls e BIOK5230 
occool DROP SREGZ BIOK5240. 
. 900430 USING SBSA0,SBSRG B10K5250 
GOOE3SA 47 FO F GLO ac 15eSTCHD GO To SET BIOK5S260 
. 2 % PARAHETERS BIOKS270 
OQOOEZE 92 27 F ACB HVI SCCH,STBS SET TO BACKSPACE 810K5280 
: a 7 RECORD BIOKS290 
OOOES2 47 FC F &F2 BC 15,STPBKY GO TO 8KWO MOTION 8I0K5300 
Fe WAIT ENTRY BIOK5310 
., 3 BIOK5320 


Q00E4E 
000520 
000526 
QOOESSG 


OO0E4SS 
QOOE4SA 


OOOESE 


000E52 
QO00ES6 


QOOESA 
go0o004 
g00no4 
000524 
009524 
QOOESA 


 OOGESA 
QOOESE 


. GOOEG2 


O00E6s 
COOEGA 


GOCsBO . 


COO0CE4G 
oocaor 
OO0ESS 


50 FO 0 O14 
47 FO 1 OA2 


coooo 

| 006450 
41 FO F 910 
92 26 F 43 


47 FO F 8F6 


00460 


“$2 10 F 9AA 


COQQCESA 


oooooF 

 QOOESA 
50 FC O O14 
47 FO 1 O8€ 


' €00001 


000480 
47 FO F 910 


(92°37 Face 


47 FC F GFE 


S@oeeheocoeoc ts 


I-O CALL ENTRY GROUP 
TAPE BACKSPACE FILE 


NOTE ~= REQUIRES PRESENCE OF TAPE ENTRY 


NOTE ~~ REQUIRES PRESENCE OF ADDRESS 
CONSTANT IN SNTRY2 TABLE 


DEFINE CURRENT IC 
DEFINE TABLE LOC 


DEFINE ROUTINE ENTRY 
RESTORE CURRENT IC 


RESERVE ENTRY BASE 

GO TO SAVE REGS, 
SET’ BASE REGISTER 
AND INITIALIZE 
CCW AND CAW 


GO YO SET 
PARAMETERS 

SET TO BACKSPACE. 
FILE 

GO TO B8KWD MOTION 


I~O CALL ENTRY GROUP 
FORWARO SPACE TAPE RECORD —- WAIT 


NOTE ~— REQUIRES PRESENCE OF TAPE ENTRY 


NOTE. —— REQUIRES PRESENCE OF ADDRESS 
CONSTANT IN SNTRY2 TABLE 


ke} 
¥ 
2 % : 
x 
a 
% BASE ROUTINE 
& 
% 
% 
= 
Bs J 
USING SBSAD,SBSRG 
S8SF  EQqU) # 
ORG  SNTRY2+44 
pc ACSBSF) 
CRG SBSF 
DROP SBSRG 
USING %»SREGZ 
ST SBSRGySHCLD 
BC 15—¢SSAVR 
+ 
> 
x 
x 
y 
DROP SREG2 
USING SBSAD,SBSRG 
BC. 15,STCHD 
% 
AVI SCCNy STaF 
% 
BC 15ySTPBK 
3 5 
BASE ROUTINE 
USING SBSAD,SBSRG 
SFSQh EQU 8 
ORG  STFSB 
LA SREGZ» SF SRW 
ORG  SNTRY2+48 
oc ACSFSRH) 
ORG SFSRY 
% . 
DROP SBSRG 
USING %,SREGZ 
ST SBSRG» SHOLD 
BC 15_ySSAVR 
. . 
gS 
.; 
DROP = SREG2 
s : 2 
USING SBSAD»SB8SRG 
BC 15,STCHD — 
s 
RVI. SCCNeSTFSR 
% 
BC - -L5eSTPFL 
% 
% 


DEFINE CURRENT IC 


SET FOR FORWARD SP 
DEFINE TABLE LOC 


DEFINE ROUTINE ENTRY 


RESTORE CURRENT IC 


RESERVE ENTRY BASE 
GO TO SAVE REGS: 
SET BASE REGISTER 
AND INITIALIZE 
CCw AND CAW 


GO TO SET 
PARAHETERS 

SEY TO FORWARD 
SPACE RECORD 

GO TO FD HOTION 
WAIT ENTRY 


BIOK6000 
BIOK6010 
BIOK6020 
BIOK6030 
BIOK6040 
BIOK6050 
BIOK6060 
BIOK6070 
BIOK6080 
BIOK6090 
BI10K6100 
BIOKS110 
BIOK6120 
BIOK6130 
BIOK&140 
BIQK&é150 
BIOK6160 
BIGK&170 
BIOK6180 
BINK6190 
BIOK6200 
BIOK6210 
BIOK6220 
BIOQK6230 
BIOK6240 
BIQK&250 
BIOK6260 
BIOK&276 
BICK6280 


' BILNK6290 


BIOK6300 
BIOKE310 
810K6320 


BIOK7000 
BIOK7010 
BIOK7020 
BIOK7030 
BIOKTO040 
BIOK7050 
BIOK 7060 
BIOK7070 
BIOK7080 
BIoK7090 
BIOK7100 
BIOK7110 
BIOK7120 
BIOK7130 
B10K7140 
BIOK7150 
BIOK7160 

BYOK7170. 
BIOK7180 
BIOK7190 
BIOK7200 
BIOK7210 
BIOK7220 
BIOK7230 
BIOK7240 
BIOK7250 
BIOK 7260 
BIOK7270 
BIOK7260 
BIOK7290 
BIOK7300 
BIOK7310 
BIOK7320 
BIOKT330 
BIOKT340 
B10K7350 


COCEGE 
GCQOE28 
COC52& 
CCOEGE 


" GOOEGE 
GCOE72 


UCUETE 
 CCCETA | 
GCOETE 


CCOEBZ 
Goos2c 
QO0£2C 
GOOESZ 


- COOES2 


GOGESE 


CCOEaA 
CCOEGE 


— CGOES2 


CCOCCEEE 
5c FC G C14 


47 FC 1 O7A 


47 FO F $16 
SZ 3F F AC 
47 FC F S02 


CCGGCEB2 
5C FC CG C14 


47 FC 1 OEE 


92.04 F S29 
G2 CC F.ACB 


47 Fi F 8FZ 


coc4Bo 


CCCOOF 
CCCESGE 


ecood) 
0cd486 


occ4Ba 


COQOO0F 
CCOEB2 


cccool 
e€cc4s80 


EOREGHkREHRGE EKG 


ee See eee te & 


wn 
bt) 
nn 
vn 


& & 


‘SBRTb 


ee G & 


USING 
EQU 
ORG 
oc 
ORG 
CROP 
USING 
ST 

BC 


CROP 
USING 


BC 
wVI 


BC 


BACKWARD REAG TAPE RECORD ~ WAIT 


USING 
ECU 
ORG 
cc 
CRG 
ORGP 
USING 
ST 

BC 


ORGP 
USING 
HVI 
HVI 


ee 


I-C CALL ENTRY GRCUP 
FORWARC SPACE TAPE FILE 


NOTE —~- REQUIRES PRESENCE OF TAPE ENTRY 
BASE ROUTINE © 


NOTE -— REQUIRES PRESENCE OF ADDRESS 


CCNSTANT IN SNTRY2 TABLE 


SBSAD,SBSRG 
x 

SNTRY2+52 
AUSFSF) 
SFSF 

SB8SRG 
*,SREGZ 
SBSRG,SHCLD 
15eSSAVR 


SREGZ 
SBSAD,SBSRG 


15,STCHOD 
SCCW, STF SF 


15,STPFR 


DEFINE CURRENT IC 
DEFINE TABLE LOC 
DEFINE ROUTINE ENTRY 
RESTORE CURRENT IC 


RESERVE ENTRY BASE 

GO TG SAVE REGS: 
SET BASE REGISTER 
ANO INITIALIZE 


CCW ANC CAW 


GO TO SET 
PARAMETERS 


SET TC FWD SPACE 


FILE 


GO TC FWO MOTION- 


I-O CALL ENTRY GROUP 


BASE ROUTINE 


NOTE —- REQUIRES PRESENCE OF TAPE ENTRY 


NCTE -- REQUIRES PRESENCE OF ADDRESS .. 


CONSTANT IN SNTRY2 TABLE 


SBSA0D,SB8SRG 
a 

SNTRY2+56 
ACSBRTh) 
SBRTW 

SBSRG 
*eSREGZ 
SBSRGsSHCLO 
159SSAVR 


SREGZ 
$BSAD,SBSRG 
STMX1+1,10 
SCCh,SBRD 


15,STPBKh 


DEFINE CURRENT IC 
‘DEFINE TABLE LOC 
DEFINE ROUTINE ENTRY 
RESTORE CURRENT IC 


RESERVE ENTRY BASE 

GO TO SAVE REGS» 
SET BASE REGISTER 
AND INITIALIZE 


CCw AND CAW 


SET READ RETRY COU 
SET TO READ TAPE 


RECORD 


GO TO BKWD MOTION- 


WAIT ENTRY 


BIOK8000 
BIOK8010 
BIOKAO20 
BIOQK&030 
BICK&040 
BIOK&050 
BIOK8060 
BIOK8070 
BIOK8080 
BIOK8090 
BIOK8100 
BIOK8110 
BIOKB8120 
BI0K8130 
BIOK8140 
BIOK8159N 
BIQK8160 
BIOK8170 
BIOK8180 
BIOK8190 
BINKB8200 
BIOK8210 
BIOK8220 
BIOK8230 
BIOK8240 
BIOK8250 
BIOK8260 
BIOK8270 
BIOK8280 
BIOKB8290 
BIOK8300 
BIOK8320 


BIOK9000 
BIOK9O1O 
BIOKI020 
BI0K9030 
BIQK9040 
BIOK9050 
BIOK9060 
BIOK9070 
B10K9080 
BIOK9090 
BIOK9100 
BIOKOLIO 
BIOK9120 
BIOK9130 
BIOK9140 
BIOK9150 
BIOK9160 
BIOKILTO 
BIOK91LBO 
BIOK9190 
BIOK9200 
BICK9210 
BIOK9220 
BIOK9230 
BIOK9240 
BIOK9250 
BIOK9260 
BIOK9270 
BI0K9280 
BIOK9290 
BIOK9300 
BINK9310 


QQOESG 
000530 
0cog53a 
QOOESS 


GQ0ES6 
QOOESA 


OQOOESE 


OOOEA2 


QQOEAS | 


QOOEAC 
OQodes0 


QOCOEB4S 
Gaocss 


COOEBC. 


‘QOOECO 


QOOEC4S 
OcoEcA 


COOECC 
GOOEDS 


QOCEDS © 


OOOEDS 


COOEDA. 


- gooenc 


OCOEEC 
CCOEE4 


COOOCES6 


50 


47 


92 
47 


C5 


47 
41 


41 
47 
92 
47 


C5) 


Cc? 


41 


468 
49 


a7 
lz 


47 


41 
47 


FG 
FC 


G2 
FO 


Ci 


70 
33 


11 
FO 


03 


FO 


G3 


8a 


6c 


76é 
70 


88 


22. 
4c. 


66 
FO 


Tn noe on ba 3 


O14 


052 


AAQ 
SF6 


AF2 


A04 
ao} 


O1E 
aEA 
AC& 


ATC | 


000480 


OgogooF 
OOCE9S 


cocool 
00C460 


F B56 


AFO F 856 


604" 


CC2 
AFQ 


ccE 


ooc. 
420. 


eeeeceet eee eEHRHER HH GEA EE a & 


I-00 CALL ENTRY GROUP 


CCNTROL CR MODE SET ENTRY — WAIT 
NOTE —~ REQUIRES PRESENCE OF I-00 BASE 
ROUTINE 
NOTE -- REQUIRES PRESENCE OF ADDRESS 
CONSTANT IN SNTRY2 TABLE 
NOTE -— REQUIRES PRESENCE OF COMMAND OP 
HODIFIER ROUTINE -- SMODF -- TO 
SPECIFY GPERATION OF CONTROL 
COMMAND 
NOTE —-=- REQUIRES THAT SLUSRG CONTAIN CON- 
TROL DEVICE UNIT BLOCK ADDRESS AT 
TIME OF ENTRY TO THIS ROUTINE 
oR 
REQUIRES PRESENCE OF LOCATE SINTRY 
TABLE UNIT BLOCK ROUTINE AND 
CONTROL ENTRY LOCATE SINTRY TABLE 
UNIT BLOCK EXIT ROUTINE 
USING SBSADsSBSRG 
SCTLBb EQU * OEFINE CURRENT IC 
- ORG SNTRY2+60 DEFINE TABLE LOC 
cc AGSCTLY) DEFINE ROUTINE ENTRY 
ORG SCTLH RESTORE CURRENT IC 
DROP SBSRG 
USING *,SREGZ 
ST SBSRGySHOLD RESERVE ENTRY BASE 
BC 159SSAVR GO TO SAVE REGS, 
* SET BASE REGISTER 
* AND INITIALIZE 
* CCW ANO CAW 
DROP SREGZ 
USING SBSAD,SB8SRG 
OMNI SWNw sy SHATF SET FOR WAIT CALL 
SCTL1 BC 15 _%t4 DUHHY BC -- OVERL 
% WHITH BAL SREGNH TO 
% LOCATE SINTRY 
* Ja © BLOCK ROUTINE 
CLC SSVR414(02),SZROS CHK YF CALL 
% BYTE COUNT ZERO 
BC 74348 BRANCH IF NO 
LA SREGNy»L(SREGN) YES — SET BYTE 
x COUNT TG ONE 
LA SREGZy30(SREGZ) ADJUST RETURN 
ec 154SSAVRi 
HVI SCCW,SCTLOP SET CTL COMHAND 
BC 15,S$10G0 GO YO ISSUE 
x. CONTROL COMMAND 
% I-O0 CALL ENTRY GROUP 
¥ LOCATE SINTRY TABLE UNIT BLOCK 
Py 
5 
@ WNOTE —— REQUIRES PRESENCE OF I-C BASE 
%- ROUTINE 
y 
@ NOTE —- UNIT ADDRESS FOR THE NEW DEVICE 
% BLOCK WFICH IS TO SE LOCATED MUST 
2 EXIST IN ENTRY TABLE AT TIME CALL 
% 1S HADE AKO IN THE SAKE FORM GIVEN 
a IN CALL . 
® NOTE —— THIS ROUTINE OPERATES IN A MANNER 
a DIRECTLY OPPOSED TO THE MULTIPLE 
% UNIT ADDRESS ADJUSTING: ROUTINE 
% ~- SCHGU ~~ ANO NO GONE CALL MAY 
o USE BOTH FUACTIONS 
3 
9 NOTE —— SREGR IS LINK REGISTER 
‘ 
3 ; : 
* LOCATE NEW DEVICE BLOCK FROM CALL SREGN 
‘ 
gy ® 
SNUDE CLC SSVR412(2),SZROS CHK IF ANY UNIT 
% ADDRESS IN CALL 
BCR 6,SREGH RETURN’ IF NONE — 
3 UNIT REFERENCE 
3 UNDERSTOOD TO BE 
% IN SLUBRG 
LA SLUBRG pSUT4B L INITIAL UNIT 
3 TABLE LOCATION 
SNUCI] LR SUREG»2(SLUBRG) L DEVICE ADDRESS 
- CH SUREG,SSVR+12 CHK IF DEV ADOR 
8 ~ SAME AS CALL DEV 
BCR By SREGH BRANCH IF SAHE 
LTR SUREG» SUREG CHK IF MINUS FOR 
$ LIST EXHAUSTED 
BC 4,SIOWA BRANCH IF MINUS -- 
* ~- UNIDENTIFIABLE 
% UNIT IN CALL 
* RETURN TO CALL 
s IF NO INTERCEPT 
LA SLUBRG e124 SLUBRG) STEP FOR NEXT 
* UNIT 
BC 15,SNUDL GO TC CHK NEXT DEV 


BIOMOO0O00 
BIOMOO1O 
BrOM0020 
BINMO0030 
BIOM0040 
BIOMO0050 
B1OMO060 
BIOMO070 
BIOMO0B80 
BIOM0090 
BIOMO100 
BIOM0110 
BIOM0120 
‘BI0H0130 
B10M0140 
BI0MO150 
BIOMO1L60 
BIOMO1TO 
BI0M0180 
BIOMO190 
BIOMO200 
BIOMO210 
BIOMO220 
BIOMNO0230 
BIOM0240 
BIOMO250 
BIOMO266 
BIOMNO2TO 
BIOMNOZ8O 
BI10M0290 
BIOMO300 
BIOMO310 
BIDMO320 
BIOMO330 
BIOM0340 
BIOM0350 
8100360 
BIOMO0370 
BIOHO380 
BI0MQ390 
BIOM0400 
BIOMO410 
BIOKO420 


' B10M0430 


BIOHO0440 
BI0K0450 
BIOMO0460 
BIOMO470 
BIOHO480 
BIOMN0490 
BIOMO500 
BIOMO510 


BION0000 
BIONOO10 
B1ONO020 
BIONOO30 
BIONOO4O 
BIONOO50 
BIONO060 
BIONOO70 
BIONOO8O 
BIONOO9O 
BIONOLOO: 
BIONOL1O 
BIONO120 
BIONO130 
BIONOL40 


BIONOL5O | 


BIQNO160 
BIONO1L70 
BIONO1L80 
BIONO190 
BIONO200 
BIONO210 
BIONO220 


- BIONO2Z30 


BIONO240 
BIONOZ50 
BI0NQ260 
BIONO270 
BIONO280 
BIONO290 
BIONO300 
BIONO310 
BIONO320 
BIONO330 
BINNO340 
BIONO350 
BIONO360 
BIONO370 
BIONO3A0 
BIONO390 
BIONO400 
BIOND41O 
BIONO420 
BION0430 

BIONO440 
BIONO450 
BIONO460 
BIONO470 


CCCEEE 
. COCCFE 
CGCCFE 


_ GCCKEE 


CCOEES 
COCEAZ 


CGOEAZ 


CCOEES 


45 EC F A14 


45 8G F AlL4 


cCCC4HO 


oc0480 


REE teryaet nek een t 


ee ee ee ¢netitret # 


SSNSX 


SCTLX 


SENSE ENTRY LCCATE SINTRY TABLE BLOCK EXIT 


USING SBSAD,SBSRG 
EGU 
CRG 
BAL 
- ORG 


I-C CALL ENTRY GROUP 


ROUTINE 


NOTE -= REQUIRES PRESENCE OF SENSE ENTRY 


NOTE ~~ REGUIRES PRESENCE GF LCCATE SINTRY 


TABLE UNIT BLOCK ROUTINE 


ACTE -=- THIS INSTRUCTION REQUIRES NO AODI-~ 


TIGNAL STCRAGE SPACE 


* 
SSNS1 


SREGM,SNUDE 


SSASX 


DEFINE CURRENT IC 


SET UP EXIT 


RESTORE CURRENT IC 


I-G CALL ENTRY GROUP 


CCNTROL ENTRY LOCATE SINTRY TABLE BLOCK EXIT 


NCTE —— REQUIRES PRESENCE OF CONTROL COH- 


MAND ENTRY ROUTINE 


NOTE ~~ REQUIRES PRESENCE OF LOCATE SINTRY 


TABLE UNIT BLOCK ROUTINE 


NOTE <— THIS INSTRUCTION REQUIRES NO ADDI- 


TIONAL STORAGE SPACE 


USING SBSA0,SBSRG 


ecu 
CRG 
BAL 
CRG 


a 
SCTL1 


SREGMs SNUDE 


SCTLX 


DEFINE CURRENT IC 


SET UP EXIT 


BICN1000 
BICN1010 
BIONLO20 
BION1030 
BION1040 
BION1LO50 
BION1LO60 
BION1O070 
BION1080 
BION1090 
BIONL100 
BIONL110 
BION1120 


- BY0N1130 


BION1140 
BION1150 
BIONL160 
BION1L170 
BION1L180 
BIONL190 


BIGN2000 
BION2010 
BION2020 
BION2030 
BION2040 
BION2050 
BION2060 
BION2070 
BION2080 
BION2090 
BION2100 
BION2110 
BION2120 
BION2130 
BIONZ140 
BION2150 
BION2160 
BION2Z170 


RESTORE CURRENT IC BION2180 


COCEEE 
CCOEEA 


CCCEEE 
_ CGCEF2 
CCOEFE 
OOOEFA 
CCOEFE 
CCOFC2 
CCOFCE 


CCCFCA 
CCOFLG 


“CCOFI14 
CCCFIA 


COOFLE 
COOFéz 


_ CCCF<E 


CCGFZC 
000F30 


COCF34 
COGF3E 
CCOF3E 
CCOF42 
CCOF4E 
COGF4A 
CCGF4C 
COOFSC 


CCOF58 
CCOFSE 
CCOFSS. 
COCFSA. 
OCCF5C, 


GCCFEC 


COCF62. 
OCOF6Z 
' CCOFES 


CCOF6E 
COOF6S’ 
COGF6A. 
COOF6C 


—CCCRIC. 
CCOF TE’ 


CCOFEC 
CCCFEE. 


CCCFSC. 
coOrs4 
CCCFEE 
COCFEA 
COGFLE 


— OCOFERC 


COGFEE™ 
CCOCFEL 


CCCFFC 
CCOCFF4 


‘Cé 


‘Se 


FC 
FC F 


GC 
16 
SZ 01 
40 
1c 
cc 
FE 


~nanDTNNON 


Cz c2 F 
4c F 


cz 
SC 


C3 F 
23 F 
G2 ZC F 
03 


47 Fl 


5G 4¢ 
4& 7é 


Fo 
cc 
cc 
58 1C 
47 FC 
ocet” 
CCCCCF78 
ceoc 


$4 
Cé 


TON OH O& 


FF 
Ge 
cooc 


CFE 


#58 
C2é 
ABC 
EQA 
AGA 
ccc 
AEG 


AEC 
EQA 


B52 
ace 


4cc 
G46 


co08 


cca 
az 


coo" 


ccc 
AAd 


C38. 


140 


CCOCCSTE, 


cl 


Oz 
occc 


FCCSFCCL. | 


FF 
04 
0000. 


cccccoco 


cocodl 
COCEEA 


occ4ec 


0 cl4 


F B56 


F Asc 


F AAO 


cccccecececoccco 
cccccacccccococo 


cocecccocecoccao 
cecccccccccocecs 


ccc 
ce 
cc. 


ccacc4eg 
40404040 


cccccoce 


GCCCCOCO. 


SHEAR HH 


eee Eee He 


nn 
nn 
> 
< 
xn 


x 


SSAVRX 
* 
x 
* 
SSAVRY 
SSAVR1 
* 


1GQ2 


SCAh 
SRN» 


ShAYT 


SRTRN 


& & & 


SKODL 


S8CCh: 


SRESR 


SSV4. 
SSVR 

SRACE 
SHICK 


ee tt 


SSVR8 
SEAGR 
S8LKK 
* 


‘SUNAD 


SHODS 


I-O BASE 
1-C 


ROUTINE - GROUP 2 
BASE ROUTINE 


NCTE - ThIS ROLTINE HUST FOLLCW ALL MCNULES 


AGCEO TC BASE ROUTINE GROUP 1 AND 
MUST PRECEDE CCNSTANTS 


CRGP 
BALR 
USING 


USING 
SSM 
ST 
MVI 


BC 
EX 
STH 


NVC 
cI 


MVC 
STH 


MVI 
PVC 


BC 


ST 
LH 


NI 
cc 
MVI> 


CC 
Dc 


— SREGL»4¢S 


SUREG, 21S 


CUSLUBRG) 
O€1,SLUBR 
SWNw,O 
SREGZ+56 
15_SI1GIN 


ACSCCW) 
AL2(0) 


I~O BASE 
. I-0 


SAVE ENTRY REGISTERS ANDO 
INITIALIZE CCW ANO CAW 
SREGZ 
SBSRG,O SET TEMPORARY BASE 
%ySBSRG 
SBSRG,SBADR SET I-00 BASE REGS 
SBSAD,SBSRG 
SIONI DISABLE I-O+EXTRN 
SREGZ,56 RESERVE SREG2Z 
SCRKisl ENABLE EXTRN INTRP 
SwICH;64 CHK IF INTL SWY ON 
1,SSAVR1 BRANCH IF YES 
QO,+SCLR CLEAR SENSE AREA 
SRGF,SRGL,»SSV4 NEW ENTRY -- SAVE 
REGISTERS 
$8V4(4),SHOLC SAVE ENTRY BASE RG 
SWICHy64 SET INTNL FLAG ON 
OVERL WITH BC TO 
SCHGU IN MULTIPLE 
UNIT ADOR ROUTINE 
STRCT(4),SZROS RESET RETRY COUNTS 
SREGA,SREGN,SCCH INITIALIZE CCw 
DATA LOC, BYTE 
SCCW+4,SILIF COUNT AND SILI BIT 
| 1204),SCAW INITIALIZE CAW FOR 
2hO CCW 
15,8(SREG2Z) RETURN TO CALL ENT 


COMPLETE SET UP TO ISSUE SIO- 


LUBRG) SAVE U & RETURN 
LUBRG) SET UP CURRENT I-0 
UNIT ADDRESS 

OVERL WITH BC TO 
SCHGU1 IN ROUTINE 
FOR HULTIPLE UNIT 
SERVICE 
+SWATFO CLEAR WAIT FLAG 
G),SWNH SET CURRENT WAIT 
FLAG THEN RESET 
RESERVE SREGZ 
GO TO START I-0 


HOLD CURRENT WAIT~ 
NONWAIT FLAG 


ROUTINE ~- GROUP 2 
BASE. ROUTINE 


NOTE ~- THIS AREA OF CONSTANTS MUST FOLLOW 
- «REQUISITE BASE ROUTINES AND PRECEDE. 
GROUP 2 HOOULES 


PSu PATTERNS —- ON DOUBLE WORD BOUNDARIES 


cs. 
oc 
oC 
iolom 
oC 


cc 


cc 
DC 
DC 


pc 
oc 
DC 
cc 


oD 
AL1(255) 
AL1(6) 
AL200) 
ACSTOWA) 


ALLIQ1). 


ALL(2) 
AL2{0) 
C*Ol1aa® 


AL1(255) 
AL1(4) 
AL2{(0) 
ACO) 


1-0 OPERATICN 


oc 
pc 


oC. 
cc 


OS 
DS 
Cc 
oc 
oc 


D*O!. 
D'o*. 


ALIGN TO OOUBLE WORD 
ALL ENABLEO 
WAIT -~- NACH CHA ENB 


RETURN TO ANALYZER 


CKHNS DISABLED - 
EXTERN ENABLED 


WAIT — BACH CHK DISABLEO 


CONOITION SOURCE 
IDENTITY 


ALL CHNS.; ENABLED | 
MACH :-CHK ENABLED 


RETURN. ADDR AREA 


CONTROL CONSTANTS 


AREA TO HOLD . 
PARANETERS FGR, 


» CURRENT CALL. 


D*o* A 
c*o! 

R 
1F. 
SF 
AL2(0) 
AL1(0) 
ALI(0) 


CONSTANTS ON 


DS 
oc 
oC 


cc 
oC 


LIF 
AUSBSAC) 
ct t 
Fegt 
Froe 


REA TO HOLD CALL 
PARAMETERS FOR 
ESERVE OPERATION 
SAVE AREA FOR REG 15 
SAVE AREA FOR REGS 
WALT SWITCH 
RCUTINE CONTROL FLAGS 


SINGLE WORD BOUNDARIES 


SAVE AREA FOR INTN CALL 

I-O ROUTINE BASE ADOR 

1 WORD OF BLANKS FOR 
SPACING 

UNIT ADDRESS INSERT 

GP MODIFIERS INSERT 


B1050000 
81050010 
B1050020 
81050030 
B1050040 


* 81050050 


BI050060 
BI050070 
B1050080 
B1M50090 
B1050100 
B1050110 
BI050120 
B1050130 
BI050140 
BI050150 
BI050160 
BIN50170 
81050180 
B1050190 
B1050200 
B1050210 
BI050220 
B1050230 
B1050240 
B1050250 
BI050260 
B1050270 
B1050280 
81050290 
BI050300 
81050310 
B1050320 
BI050330 
B1050340 
BI050350 
BI050360 
B1050370 
B1050380 
81050390 
BI050400 
BI050410 
B1050420 
B1050430 
BI050440 
B1050450 
B1050460 
BID50470 
BI050480 
B1050490 


B1050500 | 
81050510 
81050520 


81051000 
BIOS1O10: 
B1051020 
81051030 
B1051040 
B1051050 
BI051060 
BID51070 
81051080 
81051090 
81051100 
BIO51110 
81051120 
81051130. 
81051140 
B1051150 
B1051160 
81051170 
BI051180 
B1051190 
81051200 
BI051210° 
BI0521220 
81051230 
81051240 
B1051250 
81051260 
BI051270 
B1051280 
B1051290° 
B1051300 
BI051310 
B1051320 
B1051330 
81051340 
BI051350 
B1051360 
81051370 
81051380 
81051390 
81051400 
BI051410 
B1051420 
81051430 | 
BI051440 
BI051450 
81051460 
81051470 
81051480 
B1051490 
B1051500 


 SOFFA | 


CONFFS 
NIGFFA 
LOQOFFE 
En LOCC 
“Wd C02 
feces 
Co 18G6 


CCCOOF 


ccccac 
- G00001 
* cooca2 
Go0Ga3 
cco004 
cooces 
coacce 
ccoco? 
coocoa 
COO00F 
coocas 


coocd.Z 
GCOCFC 
cocco) 
CcCOcc4 
GOOCFA 
_ GCOC20 


 QOOCOF - 
‘GCOCBC | 


000G14 


cCccés& 
ccocos 


ca0ce3 
€cocos’ 


CCCCccé 
co0de) 
CocGal 


Ococ 
ccccocco 
occe 
occe 
cccce 
cacc 
coeocsce 


oc 
ac 


FF 


cocco? 


COGCLF 
cooc2? 
coocca 
GCOCAE 


Cccccic. 


— COGCZF 
ocec3? 
COOC3F 
ccccoc 
ecoGcel 


eee det ut & 


SNSA 


SNTCU 
SCNTR 


-STRCT 


STRCTT 
SZRCS 
Pa 

& 

% 
SVShC 
SIONI 
s 


SIOALIL 
. . 


% 


SRATF 


- SWATFO 


SESYF 


. SREWF 


sBSYFO 
SELIF 
SILIFC 
SCCHF 
SRELS 
# 
SKPCP 
SNSOP 


“SCTLGP 


SbRKT 
SRO 
SPU 
SuR 
STR 
ST# 
STBS 


~ STTRY 


STINT 
STMCh 
STBF 
STF SAR 
STFSF 
SBRE 
SERS 


OS 
oc 


DC 
oc 
BC 
CC 
oc 


BC 
cc 


oc 
oS 


EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQu 


EQU 


EQU 


EQU 
EQU 
EQU 
ECL 
EQU 
Eu 
EQU 


EQU. 


EQU 


ECU: 


EQU 
ECU 
EQu 
EQU 
£Qu 
EOL 


EQu- 


Eu 
EQU 
EQU 
EQU 
EQU 
EGU 
EGU 
EQU 
EQU 
EQu 


OeKONoun so nm oO 


I-0 BASE 
I-C 


— 


CONSTANTS ON 


CH 

AL2(Q) 
AL4{0) 
AL2(0) 
AL2(0) 
AL2(0Q) 
AL2(Q)} 
AL4(0) 


RANCCM 


ALLO) 
ALLO) | 


AL1(255) 


OH 


ROUTINE - GROUP 2 
BASE ROUTINE 
CONSTANTS 
CONTINUED —- 


hALF WORD BOUNDARIES 


ALIGN TO HALF WORD 
STORAGE AREA =OR 
6 SENSE BYTES 
INTERNAL CALL SWITCH 
- SPACE CLEANER CNT 
RETRY COUNT 
ELG RETRY COUNT 
ZEROS CHECK PATTERN 


LENGTH CONSTANTS 


AREA TO SAVE FLAGS 

DISABLE ALL CHNS —- 
DISABLE EXTERNAL 

ENABLE ALL CHANNELS AND 

EXTERNAL 

ALIGN TO HALF WORD 


1-0 BASE ROUTINE — GROUP 2 


T-C BASE ROUTINE 


REGISTER ASSIGNHENT 


~ 
we 


ROUTINE BASE REG 


0 

O CALL LINK REG 
~G CALL ENTRY REG 

O CALL DATA LOC 

O CALL OATA CT 

O CALL U E RETURN 
I-O CALL ERROR RETURN 
LOC OF UNIT ADDRESS 
CURRENT 1-0 UNIT- ADOR 
UTILITY WORK REGISTER 
FIRST REGISTER TO SAVE 
LAST REGISTER TO SAVE 


EQUIVALENTS 


WAIT FLAG 

MASK OUT WAIT FLAG 
BUSY FLAG 

REWINO FLAG 

MASK OUT BUSY-REWIND 
SUPPRESS ILI FLAG 
MASK OUT SILI 

DATA CHAIN FLAG 
STORAGE AREA ASSIGNED 
TO HOLD ENTRY BASE REG 
PRINTER SKIP-TO-1 OP 
SENSE COMMAND 

CONTROL COMMAND 

WRITE AND SPACE OP 
READ COMMAND OP 

PUNCH COMMAND OP 
WRITE COMMAND OP 


-. REWIND COMMANDO OP 


WRITE TAPE MARK CP 
BACKSPACE RECORD OP 
DATA CHK 

INTERVENTION REQUIRED 
EQUIPMENT CHK 
HACKSPACE FILE OP 
FORWARD SPACE REC OP 
FORWARD SPACE FILE OP 
BACKWARD READ OP 

TAPE UNIT CHK ERRORS 


BIG51520 
BIN51530 
B1051540 
BI051550 
BI051560 


~ B1051570 


BI051580 
B1051590 
81051600 
BIOS51610 
81051620 
B1051630 
BI051640 
BI051650 
BI051660 
BIO51670 
BI051680 
BIN51690 
81051700 
BIN51710 
BI051720 
81051730 
BIO051740 
BIOS1750 
81051760 
BIN51770 
BIOS1780 


81053000 
81053010 
81053020 
81953030 
B1053040 
B1053050 
81053060 
BI053070 
B1053080 
B1053090 


‘B1053100 


BIO531190 
B1053120 
B1053130 
81053140 
B1053150 
BIO053160 
B1053170 
B1053180 
B1053190 
B1053200 
B1053210 
B31053220 
81053230 
RI053240 
81053250 
B1053260 
BICS3270 
B10532B80 
B1053290 
B1053300 
B1053310 
81053320 
B1°53330 
81053340 
81053350 
BI053360 
B1053370 
81053380 
81053390 
81053400 
81053410 
BI053420 
B1053430 
B1NS3449 
810534506 
81053460 
81053470 
B1053480 
B10534996 


Goicde 
OcoFIC 
COOF10 
 QOCF3C 
cooF3¢ 
CCLOOE 
 Q0100E 
COlOR2 
001016 


coaala 
OOACLE 
Q02022 
001624 
091028 

acicec 
a01¢30 
co103¢ 


“corc3aa 
aaar14 
COOrLA 


OCOF34 | 


. 00CF34 

061036 
o1c38 
C&1G3C 


“601040 


001044 
‘aoicsa 


“co1ds4 


“gorcsa 
ca10s¢ 


47 Fo 
“48 


47 é 
ae 
‘50° 
36 

54 
(be ¢ 
4d 
66 
"94: 


egy Ft 


“3 
“ OCREEFEF 


47 
47 
50 
54: 
96 


12 
47 
40 

48 
47 


rn 
‘O : 
eam. wm oH OMA eH. Om 


FO F 


‘OOOGEFFF 


i] 
ded 
oom on 


FGF 


aoc4ao 


BSE 
BEE 


246 


B84 
BOA 


h64 
Bao 
B7¢ 
002 
gaz 


Ags 


“900480 


F Bas 
F BSE 


244 


B44 
BAC 


952 F B56 


aga 


Ace 044 
‘coo 


“B96 


REO EG EHC eEOD EEE Oo Ge oa ee oH 


SCHGU 


% 


es. 


SCHGUL 


SCRH- 
<= . 


‘SHODF 


* 


a 
“SHOUF 1 
laa 


& 


4 
SCAN) © 


ADJUST UNIT ADORESS WITH CALL ENTRY DATA 


NOTE — 


' THE UPPER HALF 


NOTE -- 


I-G BASE ROUTINE ~ GROUP 2 
HULTIPLE UNIT ADDRESS-DEVICE ROUTINE 


ROUTINE 


THIS ROUTINE MUST BE 
USE OF ANY CLASS OF DEVICE -- EsGey 
TAPE -- FOR WHICH THE UNIT ADDRESS 


MAY VARY FRCH CALL TO CALL. 


NEW UNIT ACORESS IS TO BE FOUND IN 
OF REGISTER SREGN 
AKD ANY SUCH HIGH ORDER BITS WILL 


NOTE -— REQUIRES PRESENCE OF I~O BASE 


INCLUDED FOR 


THE 


BE INTERPRETED AS A REPLACEMENT 


UNIT ADDRESS. 
DEVICE ADDRESS 


AFTER 


ZERO HIGH ORDER = 
CAUSES RETENTION OF THE INCUMBENT 


THE SET UP OF A NEW UNIT 


ADDRESS,» ANY INTERRUPT CAUSED BY 
ANY OTHER UNIT ADDRESS OF THE 
SAME CLASS IS OISREGARDED AS 


IRRELEVANT 


Wo tAG reac tel 


EGU 
ORG 
BC 
ORG 
BC. 
ORG 
ST 
N 
or 


ac 
LH 
LTR 


BC 
STH 


BC 


‘oc 


% 

@ 

2 ches 

‘&® "NOTE -- 
¥ 

Be ad 

= NOTE — 
* 

% 

‘3 

yi: 

® 

3 

a oe 
% NOTE -~ 
M3 

‘* 

ey 

s 

* 

* 

% x . 
$ NOTE — 
3 . 
Py 

% & 

¥ 

® 


re 
15,SCHGU 
§1G0. 
15,SCHGU] 
SCHGU 
SREGNy» SUNAD 
SREGNe SCRN 
SWICH»s 64 


15ySSAVRX+4 
SREGH, SUNAD 
SREGH» SREGH 

Gy *4+8 

SREGHy 2€SLUBRG) 
SUREGs 2(SLUBRG) 
15ySIGCL¢4 


Al65535) 


COUNT 


DEFINE CURRENT [C 
SET UP ENTRY 


SET UP ENTRY 
RESTORE CURRENT IC 
SAVE UNIT ADDRESS 
CLEAR YO BYTE CT 

SET INTERNAL FLAG 
—- REPLACED INST 
RETURN 


L ENTRY UNIT ADOR 
CHK IF IS ANY 

BRANCH IF NONE . 
SAVE NEH UNIT ADOR 
SET UP CURRENT I-0 
-- REPLACED INST 
RETURN 


HASK FOR DATA BYTE 


_ 1-0 BASE ROUTINE ~- GROUP 2 
COHMBAND OPERATION MODIFIERS ROUTINE 


REQUIRES PRESENCE OF I-0 BASE 


RGUTINE 


THIS ROUTINE MUST BE INCLUDED FOR 


USE OF ANY CCNHAND OP HODIFIERS. 


HOOIFIER BIT PATTERN IS SUPPLIED BY 
THE USER IN THE HIGH ORDER BYTE OF 
ANY SUCH HIGH 
ORDER BITS BILL BE INSERTED IN THE 


REGISTER SREGA. 


CCH FOR. THE CURRENT CALL 


HO CHECK IS HADE FOR THE VALIDITY 
CR APPLICABILITY OF ANY SUCH HMODI- 
FIER BITS FOUND IN SREGA,. . 
FUTURE ACTICN OR CORRECTIVE HEASURE 


ANY 


FOR CONOITICNS PRODUCED BY THESE 
USER SUPPLIED MODIFIERS MAY NOT 


EXYST IN 


THIS ROUTINE BUST NOT PRECEDE THE 


THIS I-O PACKAGE 


SIQGO ROUTINE IN SYHBOLIC FORM 


‘SET UP COMHAND OP MODIFIERS 
WITH CALL ENTRY DATA 


USING S8SAD,SBSRG 


EQU 
ORG 
8c 


‘ORG 


ac 
ORG 


“ST 
NI 
N 


RVC 
BC 
oc 
KI 


BC 


® 
SSAVRY 
15,SHGDF 
$1602 
15,SHODF1 
S#ODF 


“SREGA,SHODS 
§M00S~248 
SREGA,SCRAL 
STRCT(4),52R05S 
“15, SSAVRY+6 


SCCHEL) » SHCOS 


‘O(SLUBRG),SKATFO CLEAR WAIT-NON- 


155S1G02+44 


F®¢e7772157 


Ccw OP 
WAIT FLAG 


= REPLACED INST 
RETURN 


OEFINE CURRENT IC 
SET UP ENTRY 
SET UP ENTRY 
SAVE MODIFIERS 
EXCLUDE CP CODE 
MASK QUT HODIFIERS 
RESET RETRY COUNTS 
-- REPLACED INST 
RETURN 


SEY MODIFIERS IN 


MASK FOR DATA ADDR 


BIG5SA000 
BIOSANLO 
BIC5A020 
BI05A030 
BIOSA04N 
BIOSA0DS5O 
BIOSA060 
BIOSA0TO 
B8I1C05A080 
BIQO5A090 
BIOSALOO 
BIOSALLO 
BIO5A120 
B105A130 
BIO0SA140 
BIOSA1L50 
BIOSA160 
BIO54170 
BIC5A180 
BI05A190 
BIO5SA200 
BI05A210 
B105A220 
BI05A230 
BIOSA240 
BIO5Ah250 
BIOSA260 
BIOSA270O 
BIO5A280 
BIGS5A290 
BIO$A300 
BIOSA310 
BID5A320 
B105A330 
BIO5A340 
BIO5A350 
8105A360 
BIOSA370 
B105A380 
BIO5A390 
BIC5ASO0 
BIO5A410 
BIOSAS20 
BI105A430 
B8IO5A440 
BIO5A450 
BIOSA460 
BIOSA470 . 
BIC5A4a0 
BI05A490 


BI058000 


B1058010 
B1058020 
B1058030 
BIO5B040 
BIN5B050 
BIOSB060 
BIOSBO70 
BI058080 
81058090 


-B105B100 
B105B110 

B105B8120 
-B1058130 


B1058140 
BIC5B150 
B105B160 
BIC5B170 
B1058180 
BIO5B190 
BIO058200 
BICSB210 
BIC5B220 


‘61058230 


BI05B240 


81058250 


BIO58260 


“B1058270 


BIC58280 
81058290 


 BIC5B300 


81058310 


81058320 


81058330 
81058340 
B1058350 
81058360 
BI058370 
B1058380 
81058390 
BI05B400 
81058410 
BIO5B420 
81058430 
B1058440 
81058450 
B1058460 
BIC5B470 
BIOSB480 
B1058490 
BI05B500 


€ 
x 
a 
e 
% 
" ACTE == 
x 
& 
% 
Ped 
x 
x 
x NOTE --. 
x 
% 
% ' 
cccoc} ' £RGP 
C00480 USING 
cclcec SGRG ECU 
CCCFLA CRG 
CCCFIA 47 FC F &CC BC 
& 
3 
% 
CCCFIC CRG 
CGGF7C CC SPSwK CC 
CCCF71 CC cc 
CCOFT2 cCOCc Dc 
CCCF74 cocccsca' . oc 
COCFIE GC oc 
GCCOCFIS CC oC 
CCGFTA CCOC Oc 
CCGFIC cocccs34 cc 
OGCFEC GO 23 F ACE S™ 
COCFES U5 Cl F BCE F B56 CLC 
; % 
x 
% 
CCGFaCc ; CRG 
ccorFac C2 c7 Cc C58 F ACO SPSh MVC 
CCOFCZ C2 C7 C C7a F ACA HVC 
COCFCE 44 CC F CEC EX 
% 
% 
r 
- GCCOFCC Cz C3 F s6Aa F ACO RVC 
CCOFL2 G2 C5 F CEC F ADS HVC 
% 
OCOFCS Cz cl F ALG F 256 RVC 
-CGOFCE 47 FC F AGA c 
CO1lC6C CRG 
ccicéc SIONC. EQU 
& 
. % 
: * 
ccccac ENO 


RCUTINE. 


 SSAVR1{(4) 9 SPSWK416 


I-C BASE ROUTINE — GROUP 2 
I-C BASE ROUTINE 


INITIAL NEW PSwW SET UP ROUTINE 


THIS ROUTINE IS ACTIVATED THRCUGH 
TRE FIRST ENTRANCE TO THE I~) BASE 
IT IS LOCATED IN TEMPO 
RARY STORAGE SPACE IN THE CONSTANT 
AREA ANC CAN BE DESTROYED AT THE 
CCNCLUSICN OF ITS FUNCTICN 


THIS RCUTINE REQUIRES NO STORAGE 
SPACE SINCE IT IS WHOLLY CONTAINED 
IN SPACE SUBSEQUENTLY EMPLOYED 


SREGZ 

SBSAD,SBSRG 

* DEFINE CURRENT IC 
SSAVR1 

15,SPSwW SET UP ENTRY 


INITIAL PSh SET UP CONSTANTS 


SFCGDL 

AL1{(0) EXTERNAL 

ALL(O) INTERRUPT 

AL2(0} NEW 

ACSXTRN) PSW 

ALLLO) 1-0 

ALLCO) INTERRUPT 

AL2(0) NEW 

ACSNTPIN) PSW 

SREGAeSREGNySCCH ‘INITIALIZE CCW 

SWADE(2)ySZRCS CHK IF WAIT SHT ON 
ROUTINE 

SSVRB ‘ 

8818). SPShK SET EXTRNL NEW PSW 

120(8),SPSHK+a SET I-O NEW PSH 

0,51 Owes SET MACH CHK NEW 


PSW TF KACH CHK 
ROUTINE OVERLOAD 
IS PRESENT 
REPLACE ENTRY 
SIOW+4(6),SPSWK+20 REPLACE MACH 
CHK PSwW SET UP 
SRESR+6(2),SZ2ROS CLEAR RESERVE SwT 


15¢SSAVR1 RETURN TO SAVE ROU 
SORG RESTORE CURRENT IC 
a END CF PROGRAM 


BIN5P000 
BIOSPO1LO 
BIO5P020 
B8105P030 
BIC5P040 
BIO5P050 
BIOSP060 
BIO5SPO070 
BIOS5POB8O 
BIC5PO090 
BIO5P100 
BIC5SP110 
BIO5P120 
BIC5P130 
BIO5P140 
BINSP150 
BIOSP160 
BIOC5P170 
BIO5P180 
BIOSP190 
BIOSP200 
BIO5P210 
BIOSP220 
BINSP230 
BIOSP240 
BIOSP250 
BIO5P260 
BIC5P270 
BIC5SP2R0 
B105°290 
BIC5P300 
BIOSP310 
BYQ5P320 
BIO5P330 
BIO5P340 
BIO5P350 
BIOC5SP360 
BIO5P370 
B1O5P386 
BIC5P390 
B105P400 
B105P410 
B105P420 
8105P430 
BI105P440 
BI05P450 
B105P460 
BIOSP470 
B105P480 
BIO5P490 
BIO5P500 


B105P520 
BI0NS5P530 
BIO5P540 
BINSP550 
BLO5P560 


